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/.  Introduction 

' The  concept  of  measuring  ocean  currents  from  the  motlonally  induced 
electric  fields  is„an  old  one*^^®'^^*'^  been  first  enunciated  by  Michael 
Faraday  (1832) • .{Numerous  electric  measurements  have  been  made  over  sub¬ 
marine  cables  tbOttguetrHlggtnffT'  t^9)^nd  between  electrodes  towed 
behind  a  vessel  1950)/®  More  recently  a  profiling  instrument 

called  the  Electro  Magnetic  Velocity  Profiler  (EMVP)  has  been  developed  . 
by  Sanford,  Drever  and  Dunlap  (1978) .  (^Experience  with  the  EMVP  sug¬ 
gested  that  a  smaller,  expendable  version  could  be  developed.  \ This 
report  describes  this  development  and  performance  results. 

The  development  of  the  expendable  profiler  began  in  1976  under 
support  from  ONR  Code  481  (now  422).  A  device  was  needed  to  sense 
voltages  between  two  electrodes,  effectively  spaced  5  cm  apart,  to 
within  50  X  10  V  rms  over  a  1  Hz  bandwidth.  The  sensitivity  results 
from  the  necessity  to  measure  the  expected  signal  to  the  equivalent  of 
about  1  cm/s  rms.  To  be  operable  from  a  ship  under  way,  the  device  must 
not  only  be  expendable  but  also  able  to  transmit  data  to  the  vessel. 

For  reasons  of  cost  and  convenience,  body  parts  amd  wire  spools  from  a 
T-7  XBT  (Expendable  Bathy-Thermograph,  Sippican  Corp. ,  Marion,  MA)  were 
utilized,  providing  a  suitable  vehicle  and  the  means  for  transmitting 
the  data  back  to  the  vessel  over  the  wire  link. 

Development  activity  proceeded  into  1977  with  the  design  of  several 
electronics  circuits  and  the  performance  of  sea  trials.  The  results 
were  not  encouraging;  a  persistent  electronic  Instability  arose  within 
each  probe. 

During  1977,  Code  500  of  the  Naval  Oceanographic  Research  and 
Development  Activity  (NORDA)  at  Bay  St.  Louis,  MS,  took  over  progreun 
support.  After  the  unsuccessful  sea  trials  in  1977,  efforts  were 
concentrated  on  laboratory  testing  and  theoretical  evaluations  to 
discover  the  cause  of  the  electronic  instability.  Ultimately  this  prob¬ 
lem  was  found  to  be  due  to  feedback  from  the  turns  on  the  probe  wire 
spool  into  the  low-level  electrode  amplifiers. 

By  spring  1978,  the  instability  had  been  Isolated  and  new  circuits 
designed  to  eliminate  the  problem.  About  two  dozen  probes  were  taken  to 
sea  on  Oceanus  Cruise  42  in  April  1978.  These  probes  were  successful 
and  revealed  stable  profile-to-profile  repeatability. 

In  June  1978,  a  complement  of  over  50  probes  was  taken  on  Cruise  47 
of  the  R.V.  Oceanus  as  part  of  the  Local  Dyneunlcs  Experiment  of  the 
U.S./U.S.S.R.  POLYMODE  program.  These  probes,  which  we  call  XTVP's  for 
Expendable  Temperature  and  Velocity  Profiler,  were  used  simultaneously 
with  oiir  recoverable  profiler  (the  Absolute  Velocity  Profiler,  successor 
to  the  EMVP)  and  alone  to  study  upper-ocean  velocity  features  such  as 
internal  waves  and  fronts. 
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With  the  support  of  the  Applied  Physics  Laboratory  of  the  Johns 
Hopkins  University*  a  series  of  performance  tests  was  conducted  In  May 
1978  at  the  U. S«  Navy's  AUTEC  (Atlantic  Underwater  Test  emd  Evaluation 
Center).  A  free-fall,  acoustically  tracked  profiler  was  operated  by 
Wenstrand  (1979)  as  the  standard  against  which  the  XTVP's  were 
compared.  These  tests,  reported  by  Sanford,  Dunlap  and  Drever  (1981), 
showed  that  the  probes  were  accurate  to  within  ekbout  1  cm/s  rms.  The 
XTVP's  do  not  measure  the  vertically  averaged  flow  but  reveal  only  the 
depth  dependent  part.  Hence,  the  two  profilers  can  only  be  compared 
with  2m  unknown  velocity  offset.  The  1  cm/s  rms  performance  reflects 
the  expected  differences  when  the  XTVP  profile  has  been  offset  to  match 
the  acoustic  profile's  vertical  average. 

At  the  AUTEC  trials,  XTVP's  manufactured  by  the  Slpplcan  Corporation 
according  to  a  slightly  different  design  were  also  tested.  These  did  not 
perform  quite  as  well  as  those  built  by  APL-UW,  and  the  changes  Incorpo¬ 
rated  were  not  Included  In  subsequent  units. 

Several  hundreds  of  Slpplcan-produced  probes  were  deployed  In 
experiments  In  the  fall  and  winter  of  1979-80.  These  probes  performed 
well,  with  a  failure  rate  of  about  1  In  4. 

During  1979,  a  new  digital  receiver  was  designed  and  built.  This 
device  determines  the  amplitudes  and  phases  of  the  electric  field  and 
compass  signals,  from  which  the  velocity  estimates  result.  These  quan¬ 
tities  are  derived  from  direct  frequency  evaluation  of  the  FM  signals, 
eliminating  the  analog  stages  (frequency  to  voltage  and  analog  syn¬ 
chronous  demodulation)  of  the  original  profile  processor.  The  digital 
receiver  was  interfaced  to  an  HP  9845T  desk-top  computer.  Raw  data  were 
acquired  in  real  time,  but  a  processed  profile  requires  too  much  compu¬ 
tation  to  be  produced  In  real  time. 

The  recent  emphasis  of  the  program  has  been  on  our  using  the  probes, 
assisting  others  in  prolae  deployment  and  processing,  and  completion  of  a 
digital  receiver,  especially  a  means  for  Internal  digital  storage. 

To  many  readers  It  may  seem  unconscionable  to  expend  such  sophisti¬ 
cated  probes.  But  when  used  to  this  maximum  advantage,  these  devices 
provide  Invaluable  results  and  save  considerable  personnel  and  opera¬ 
tional  costs.  Operation  of  an  equivalent  recoverable  instrument  is  very 
expensive  In  terms  of  capital  equipment  (support  equlfwient,  the  profiler, 
spares,  etc.),  highly  trained  personnel  (engineers,  technicians, 
programmers)  and  ship  time  for  launch,  search  and  recovery.  Clearly, 
there  Is  some  point  at  which  the  scientific  emd  operational  requirements 
argue  strongly  for  the  advantages  of  operational  speed,  real-time  data 
presentation,  logistical  convenience  and  routine  operation  by  minimally 
trained  personnel. 
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II.  Principles  of  Motional  Induction 

As  seawater  moves  through  the  earth's  magnetic  field,  electric 
‘  fields,  currents  and  magnetic  fields  arise.  The  physics  is  identical  to 

that  demonstrated  as  a  wire  connected  to  a  voltmeter  is  moved  between 
the  poles  of  a  magnet.  The  voltmeter  registers  an  emf  as  the  wire 
enters  and  exits  the  pole  area.  A  similar  experiment  can  be  performed 
with  the  wire  loop  just  in  the  presence  of  the  geomagnetic  field.  If 
the  loop  were  to  change  its  area  or  be  rotated,  an  emf  would  be 
induced.  Note  that  the  loop  area  projected  onto  the  geomagnetic  field 
must  change.  Motion  of  the  loop  and  voltmeter  in  any  rectilinear  direc¬ 
tion  will  not  result  in  an  induced  emf.  There  seems  to  be  a  contradic¬ 
tion  here  in  that  we  assert  that  velocity  can  be  detected  by  the  XTVP, 
but  not  in  the  above  example.  The  resolution  is  that  in  the  rigidly 
translating  loop  and  voltmeter  all  circuit  elements  move  together  with 
no  relative  velocity.  If  the  loop  were  elastic  with  a  section  moving 
away  from  the  voltmeter,  then  an  emf  would  arise  proportional  to  the 
rate  of  change  of  magnetic  flux  through  the  loop  area.  If  the  voltmeter 
were  also  moving,  then  the  emf  may  be  proportional  to  the  velocity  of 
the  loop  section  minus  (or  relative  to)  that  of  the  voltmeter.  The 
general  point  is  that  the  emf  is  related  to  the  motion  of  all  circuit  or 
loop  elements.  The  same  principle  applies  to  the  ocean?  namely,  the  emf 
induced  by  the  velocity  at  some  depth  will  be  relative  to  the  velocities 
in  the  surrounding  seawater.  It  is  this  fact  that  restricts  the  XTVP 
velocity  measurements  to  be  relative  to  an  unknown,  spatially  averaged 
velocity.  This  restriction  is  indeed  unfortunate,  but  there  is  one 
important  consolation:  the  unknown  is  not  depth  dependent,  so  it  repre¬ 
sents  only  an  offset  having  no  vertical  structure.  In  most,  if  not  all, 
geophysical  flows,  the  vertical  scale  of  the  motion  is  small  compared 
with  the  horizontal  length  scale.  This  low  aspect  ratio  leads  to  the 
assertion  that  the  offset  is  not  depth  dependent.  A  more  rigorous  anal¬ 
ysis  of  motional  induction  is  presented  by  Sanford  (1971),  and  Sanford 
et  al.  (1978)  discuss  induction  using  a  discrete  circuit  analog. 

In  addition  to  the  obvious  problem  of  nanovolt  measurement  in  the 
severe  pressure  and  temperature  environment  of  a  profile,  there  are 
other  special  considerations.  The  fall  rate  of  4-5  m/s  (8-10  knots) 
means  that  there  will  be  an  extremely  large  signal  generated  by  this 
motion  through  the  horizontal  magnetic  field.  This  voltage  will  be 
about  5  pV.  The  extraction  of  voltage  due  to  horizontal  velocities 
(~50  nV)  in  the  presence  of  a  40  dB  larger  one  is  difficult.  A  scheme 
is  employed  using  the  compass  coll  to  cancel  the  bulk  of  the  fall 
induced  voltage.  Another  consideration  is  that  electrodes  have  enormous 
(>1  mv)  drifts  and  offsets  and  have  broadband  noise.  To  extract  50  nV 
signals,  it  is  necessary  to  limit  the  bandwidth  of  the  desired  signal. 
This  is  achieved  with  a  rapid  probe  rotation  rate,  which  modulates  the 
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ocean's  emf  and  allows  the  separation  of  the  Induced  signal  fr(^  broad¬ 
band  noise  euid  the  lower  frequency  drift  of  the  electrodes.  Finally, 
the  transmission  of  the  data  to  the  vessel  must  be  carefully  executed  to 
avoid  feedback  from  the  high-level  output  into  the  low-level  input. 


III.  Method  of  Operation  of  the  Expendable  Profiler 

The  method  of  operation  of  the  expendable  temperature  and  velocity 
profiler  has  been  developed  based  on  our  experience  with  a  free-fall 
electromagnetic  velocity  profiler  (EMVP;  Sanford  et  al.,  1978).  The 
XTVP  shown  in  Fig.  1  is  made  from  standard  expendable  bathythermograph 
(XBT,  Sippican  Corp.)  parts  with  the  addition  of  a  29.5  cm  center 
section  of  active  electronics.  As  the  probe  falls  and  spins  through  the 
water  column,  it  modulates  the  motionally  induced  electric  field  at  its 
spin  frequency.  These  weak  signals  are  amplified  and  converted  to  an 
FM  signal  that  is  transmitted  over  a  pair  of  #39  wires  to  the  ship. 

The  signal  Acj)  from  a  falling,  rotating  electrode  line  pointing  in 
the  direction  6,  measured  clockwise  from  geomagnetic  north,  in  the 
presence  of  the  motionally  induced  electric  currents  in  the  sea  is 


A*  =  F  L(u-u)(1+C  )  cos9  -  [F  L(v-v)(1+C  )  -  F  LW(1+C^)]  sin9 ,  (1) 

z  1  z  1  H  2 


where 


Fh  and  F^ 


L 


horizontal  and  vertical  components  of  the 
geomagnetic  field,  taken  here  as  1/4  and 
-1/2  X  10"'*  tesla, 

_2 

length  of  electrode  line  =  5  x  10  m, 


u-u  and  v-v 


east  and  north  horizontal  velocity  components 
minus  a  vertically-averaged  contribution , 


and  C2 


scale  factors  depending  on  the  shape  of 
the  probe  =  1  and  0 , 


W 


vertical  component  of  velocity  (negative  value 
for  falling  probe)  =  4  m/s. 
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Figure  1,  Expendable  Temperature  and  Velocity  Profiler  (XTVP) 
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The  magnitudes  of  the  terms  are  found  for  u-u  and  v-v  =  1  cm/s  using 


F  L(u-u)(1+C  )  =  F  L(v-v)(1+C,)  =  -50  X  10  V  , 
z  1  z  1 


FjjLWd+Cj)  =  5  X  10  V  . 


The  very  low  signal  levels  place  stringent  requirements  on  the 
expendable  electronics.  The  desired  signal  of  0.05  pV  represents  1.0% 
of  the  5  pV  signal  induced  by  fall  speed.  To  resolve  the  desired  signal 
to  an  uncertainty  of  1  cm/s  requires  that  the  gain  of  the  amplifiers  be 
stable  within  1.0%,  that  the  phase  of  the  signal  relative  to  the  elec¬ 
trode  line  orientation  be  determined  to  0.6®,  emd  that  the  fall  speed  be 
known  to  about  1.0%. 

The  0.6®  is  a  specification  that  is  very  hard  to  meet  in  an  expend¬ 
able  probe.  The  phase  error  tolerance  can  be  improved  by  mixing  a  por¬ 
tion  of  the  coil  signal  with  the  electric  field.  The  amplitude  of  the 
coil  signal  is  given  by  F^unA,  where  u  is  the  rotation  rate  and  nA  is 
the  effective  area  times  the  number  of  tLirns.  Consequently,  the  elec¬ 
tric  field  signal  plus  the  coil  contribution  would  be 


in-phase  =  -F  L(v-v)(1+C  )  =  F  LW(1+C  )  -  F  wnAC^  , 
z  1  H  2  H  3 


where  is  the  fraction  of  the  coil  signal  added.  The  value  of  is 
chosen  such  that  for  average  fall  rates  and  rotation  frequencies 
(W  and  u))  the  two  terms  nearly  cancel.  That  is,  we  find  that 
U)  *  50  s“^  and  nA  =  10^  cm^,  hence 


LW{1+C  ) 
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The  principal  benefit  of  this  procedure  is  to  reduce  by  about  90% 
the  magnitude  of  the  in-phase  signal,  making  the  in-phase  and  quadrature 
signals  of  comparable  strength.  In  this  case,  phase  shift  uncertainties 
in  the  probe  and  deck  equipment  can  be  as  large  as  +6»  without  degrading 
the  +1  cm/s  performance  goal. 


The  low-noise  preamplifiers  used  in  the  probes  have  a  noise  voltage 
of  about  10  X  10”®  V//Hz  in  the  5  Hz  to  1000  Hz  band  referred  to  input. 
This  noise  level  corresponds  to  an  -1/4  cm/s  rms  uncertainty  in  velocity. 


The  discussion  of  the  hardware  is  divided  into  topics  related  to 
the  probe  construction  2urid  electronics  and  the  receivers,  both  analog 
and  digital  versions. 


A.  PROBE 

1 .  Package  and  Construction 

The  mechanical  design  of  the  probe  is  shown  in  Fig.  1.  The 
probe  is  52  cm  long,  5  cm  in  diameter,  and  weighs  in  air  approximately 
1470  grams.  In  seawater  the  probe  weighs  about  800  grams.  The  three 
main  parts  of  the  probe  are  the  afterbody,  electronics  section  and  nose 
weight. 

The  afterbody  contains  a  spool  of  approximately  900  m  of  two- 
conductor,  #39  wire  used  to  send  data  to  the  surface.  A  shroud  in  the 
form  of  a  right  cylindrical  shell  has  been  mounted  on  the  afterbody  to 
stabilize  the  fall  of  the  probe.  The  fins  of  the  afterbody  make  the 
probe  rotate  at  about  450  rpm. 

The  electronics  section  contains  two  printed-circuit  boards, 
batteries,  electrodes,  compass  coil  and  thermistor  flushing  tubes,  all 
potted  inside  a  thin-walled  PVC  tube.  The  potting  is  a  soft  compound 
which  allows  the  components  to  be  at  pressure  equilibrium  with  the 
surrounding  seawater.  The  electric  field  sensor  is  made  up  of  two 
silver-silver  chloride  electrodes  in  tubes  filled  with  agar  to  form 
a  salt  bridge  for  making  electrical  connection  to  the  seawater  at  the 
outer  skin  of  the  probe.  The  compass  coil  is  a  coil  of  wire  wound 
coaxially  over  the  electrode  tubes. 

The  nose  weight  is  made  of  zinc,  weighs  about  500  grams  in  seawater 
and  supplies  the  main  driving  force  causing  the  probe  to  fall.  A  therm¬ 
istor  is  mounted  in  the  hole  in  the  center  of  the  nose  weight.  The 
thermistor  is  flushed  by  water  passing  through  the  nose  cone  and  then 
through  the  flushing  tubes  which  are  potted  in  the  electronics  section. 
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2.  Electronics 

The  electronics  are  made  up  of  sensor  pre2unplifiers,  three  voltage- 
to-frequency  converters  (V/F),  a  battery  pack,  voltage  reference,  mixer 
and  line  driver.  Figure  2  is  a  block  diagram  of  the  probe  electronics. 

The  electric  field,  as  sensed  by  the  electrodes,  is  amplified  by  a 
low  noise  preamplifier.  The  signal  generated  by  the  rotation  of  the 
compass  coil  in  the  earth's  magnetic  field  is  also  eunplified.  The 
compass  coll  and  the  electrodes  have  been  wired  so  that  the  output  of 
the  compass  amplifier  will  be  180*  out  of  phase  with  the  part  of  the 
electric  field  amplifier  output  that  is  due  to  the  fall  rate  term, 
Pj^LWd+Cj),  of  Eq.  (1).  As  described  in  Eq.  (4),  a  small  amount  of  the 
compass  coil  amplifier  signal  is  added  to  the  electric  field  amplifier 
signal  to  cancel  most  of  the  fall  rate  terra.  The  output  of  the  electric 
field  post-amplifier  is  ac  coupled  into  a  V/F  converter.  The  reference 
voltage  is  used  to  offset  the  V/F  to  operate  at  the  center  frequency  of 
its  designated  channel.  The  output  of  the  V/F  is  divided  by  two  to 
eliminate  the  even  harmonics.  The  signal  is  then  filtered  to  reduce  the 
third  harmonic  and  to  give  a  10  dB  boost  to  the  higher-frequency  portion 
of  the  channel  over  the  lower-frequency  end.  The  compass  signal  is  also 
ac  coupled  into  a  V/F,  and  the  output  of  the  V/F  is  divided  by  two  to 
remove  the  even  harmonics. 

The  thermistor  is  used  with  the  reference  voltage  to  modulate  a 
third  V/F.  The  output  of  the  temperature  V/F  is  divided  by  two  to 
remove  the  even  harmonics.  The  signal  is  then  filtered  to  reduce  the 
odd  harmonics. 

The  three  FM  channels  are  amplified  to  compensate  for  the  different 
signal  attenuation  on  each  channel  (caused  by  the  wire  link  to  the  ship¬ 
board  processing  system),  mixed  2uid  Impressed  on  the  wire  link.  Design 
signal  levels  and  the  actual  signal  levels  out  of  a  wire  link  for  a 
couple  of  drops  are  shown  in  Fig.  3.  There  aure  curves  showing  the 
signal  levels  at  the  start  and  end  of  a  drop.  The  attenuation  of  signal 
on  the  wire  can  be  as  much  as  120  dB  at  5  kHz  with  all  the  wire  in  the 
water.  Figure  4  shows  the  frequency  spectra  of  signals  out  of  the  digi¬ 
tal  receiver  preamplifier  at  three  different  times  for  drop  #67.  The 
broadband  energy  centered  at  2500  Hz  in  the  top  spectrum  is  caused  by 
the  electric  field  amplifier  in  the  probe  being  open-circuited  vrtiile  in 
air  in  the  deck  launcher.  The  figure  shows  that  even  when  the  signals 
are  greatly  affected  by  the  wire  links  they  still  stand  out  well  above 
the  noise. 
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Figure  2.  Diagram  of  probe  electronics. 
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Figure  4. 

Signal  spectra  10  seconds  before 
ccnd  after  probe  launch^  and  near 
the  end  of  a  drop. 
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B.  ANALOG  RECEIVING  SYSTEM 

The  analog  receiving  system.  Fig.  5,  consists  of  the  XTVP  receiver, 
two  custom-designed  plug-in  units  for  a  Tektronix  TM  500  module,  and 
standard  laboratory  instrumentation. 

The  three  channels  of  FM  data  are  transmitted  to  the  ship  by  way  of 
the  expendable  wire  link.  The  signals  are  transformer  coupled,  ampli¬ 
fied  and  filtered  into  the  three  separate  frequency  bands.  These  three 
FM  signals  are  recorded  on  an  HP  3960  tape  recorder  so  the  data  can  be 
replayed  after  the  drop.  The  period  of  the  temperature  frequency  is 
measured  in  a  counter  and  converted  to  a  voltage  which  can  be  dis¬ 
played  on  the  XY  plotter.  The  electric  field  and  compass  frequencies 
are  converted  to  voltages,  V^,  and  V^,  respectively,  that  are  a  linear 
representation  of  the  voltages  sensed  by  the  probe. 

The  compass  voltage  Is  used  as  a  reference  signal  for  the  two- 
phase,  lock-in  amplifier  (PAR,  Inc.,  Model  129).  The  lock-in  amplifier 
synchronously  demodulates  the  electric  field  voltage  into  in-phase 
(north-south)  and  quadrature  (east-west)  components  with  respect  to  the 
compass  signal.  These  signals  are  recorded  in  the  two-pen  XYY  recorder 
as  a  function  of  time  (depth)  in  real  time  as  the  probe  is  falling. 

Thus,  the  velocity  data  are  available  for  immediate  examination  and 
analysis  in  analog  form. 

The  processing  system  also  measures  and  plots  the  in-phase  and 
quadrature  components  of  the  compass  signal  and  the  period  of  the 
compass  signal. 

The  velocity  profiles  produced  by  the  analog  system  contain  errors 
and  lack  corrections  for  known  systematic  effects.  To  compute  corrected 
profiles,  it  is  necessary  to  digitize  the  euialog  plots.  To  accomplish 
this  we  have  used  an  HP  9874A  digitizer  and  an  HP  9845  desk-top  compu¬ 
ter.  The  analog  receiver  has  now  been  replaced  by  a  digital  version; 
the  analog  receiver  now  serves  as  a  backup  to  the  digital  receiver  and 
provides  real-time  information. 
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C .  DIGITAL  RECEIVER 

The  XTVR  digital  receiver  is  a  one-box  unit  that  takes  the  com¬ 
posite  FM  signals  from  the  wire  link  and  processes  them  into  digital 
data  that  are  recorded  on  an  internal  magnetic  cartridge  tape  recorder. 
In  this  way,  the  receiver  is  capable  of  being  used  without  an  on-line 
computer.  With  an  plotter,  as  shown  in  Fig.  6,  the  receiver  can 

be  used  to  obtain  real-time  plots  of  u  and  v  with  X  equal  to  the  product 
of  time  and  a  constant  fall  rate  similar  to  those  produced  by  the  analog 
receiver.  It  is  recommended  that  a  backup  magnetic  tape  recording  be 
made  of  the  FM  signals.  The  data  must  be  further  processed  by  a  com¬ 
puter  to  get  completely  processed  profiles. 

1 .  Preamplifier,  Filters  and  Carrier  Detector 

The  preamplifier  and  filters  take  the  signal  from  the  output  of  the 
wire  link,  amplify,  and  separate  the  FM  signal  into  the  three  channels. 
The  signals  from  the  wire  link  are  coupled  into  the  launcher  and  fed  to 
the  input  of  the  receiver  by  a  shielded,  four-wire  cable.  At  the  input 
to  the  receiver,  the  signal  is  passed  through  an  isolation  transformer 
followed  by  the  preaa^  which  has  frequency-dependent  gain.  The  compass 
channel  has  a  gain  of  approximately  40  dB.  The  electric  field  channel 
is  boosted  approximately  25  dB,  and  the  temperature  channel  has  a  gain 
of  approximately  10  dB.  The  effect  of  the  nonuniform  gain  appears  in 
Fig.  4  as  the  difference  between  the  two  curves  showing  drop  #67  signal 
levels  into  the  receiver  and  out  of  the  preamp.  The  signal  then  goes 
through  three  bandpass  filters  that  separate  and  further  amplify  the 
signals.  The  outputs  of  the  filters  are  recorded  on  a  magnetic  tape 
recorder  and  applied  to  the  inputs  of  the  carrier  detectors.  When  the 
carrier  voltage  of  each  channel  goes  above  a  preset  value,  the  PM  signal 
will  be  gated  into  the  phase  lock  loops.  The  carrier  detector  circuit 
serves  to  keep  the  phase  lock  loop  squelched  until  a  carrier  is  present. 
The  carrier  detector  generates  3  bits  of  the  status  data  word  which  is 
used  by  the  processing  computer  to  determine  that  all  carriers  are  pres¬ 
ent  during  the  drop. 

2.  Phase  Lock  Loops 

The  phase  lock  loops  perform  the  three  functions  of  frequency 
multiplication,  frequency- to-voltage  conversion  and  signal-to-noise 
improvement  at  low  carrier  levels. 

The  most  important  function  of  the  phase  lock  loops  (PLL)  is  to 
multiply  the  carrier  frequency  such  that  a  zero  crossing  counter  will 
have  sufficient  resolution  for  making  the  velocity  determinations.  The 
electric  field  carrier  frequency  has  a  transfer  function  from  the  input 
of  the  electi^odes  of  the  probe  to  the  PLL  input  of  2.5  Hz  per  0.1  pV 
peak  to  peak.  An  ocean  flow  having  a  horizontal  speed  of  1  cm/s  in  a 


Figure  6.  Frooessing  seation  of  XTVP  digital  receiver  (control  and  I/O  sections  shoim  in  Fig.  8). 
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vertical  geomagnetic  field  of  1/2  x  10  tesla  will  Induce  a  signal  of 
0.1  pV  peak  to  peak  at  the  probe  electrodes.  The  electric  field  car¬ 
rier  frequency  is  multiplied  by  40,  increasing  the  transfer  function  to 
100  Hz  per  0.1  yV  peak  to  peak.  The  counters  are  used  in  an  up/down 
count  mode  over  one  period  of  probe  rotation.  Because  the  up/ down 
counter  accumulates  over  one  period,  and  the  modulation  of  the  carrier 
is  a  sine  wave  at  the  period  of  rotation,  it  can  be  shown  that 

2F  N 

TC  -  — ^ —  P  ,  (6) 


where 


TC  =  total  counts  in  up/ down  counter  , 

Fp  *  deviation  of  carrier  frequency  per  pV , 

P  s  period  of  rotation  in  seconds, 

N  =  multiplication  factor  of  PLL- 

For  P=  0.125  s,  F  a  25  Hz/yV  and  N  =  40,  TC  =  125  counts/yV  = 

12.5  counts/cm/s.  ^ 

The  second  function  that  the  PLt's  perform  is  frequency-to-voltage 
(analog)  conversion  of  the  electric  field  and  compass  FM  signals.  The 
compass  analog  voltage  signal  is  used  by  the  reference  generator  to  pro¬ 
duce  reference  signals  for  the  phase-sensitive  demodulation  of  the  FM 
signals.  The  electric  field  and  compass  analog  signals  can  also  be  used 
with  a  two-phase  lock-in  eunpllfler  as  was  done  in  the  original  analog 
receiver  described  previously. 


A  third  function  of  the  PLL  is  to  achieve  em  improvement  in  signal- 
to-noise  ratio  at  small  carrier-to-noise  ratios.  The  output  signal-to- 
noise  ratio  of  an  FM  signal  is  (Schwartz,  1966) 


—  =  3B^  — 

o  c 

where 

S 

—  =  FM  carrier-to-noise  ratio  (must  be  greater  than  10), 
c 

B  =  ^  “  modulation  index, 
m 

f^  =  frequency  of  the  modulation  in  radlans/s, 

Af  =  deviation  of  the  carrier  frequency  from 
zero  modulation  frequency  of  the  carrier. 

For  Af  -  500  Hz,  f^  -  8  Hz  and  Sj./Nj.-  10,  SqNq  -  39,000  or  46  dB. 


(7) 
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Below  the  =  10  threshold,  Eq.  (7)  is  not  valid,  and  S^/N^ 

declines  about  30  dB  by  the  point  vAiere  =  1.  Schwartz  (1966) 

shows  that  a  PUi  can  be  used  to  move  the  threshold  down  to  about  0  dB 
giving  a  threshold  improvement  of  10  dB. 

3.  Reference  Generator  and  Op/Down  Counter 

The  reference  generator  zmd  the  up/down  counters  perform  the 
function  of  phase-sensitive  demodulation  of  the  FM  signals  into  two 
orthogonal  components.  The  reference  generator  generates  two  reference 
signals,  CQR  and  CIR,  with  the  former  lagging  the  latter  by  90*.  These 
signals  are  used  to  control  the  up  and  down  counting  times  of  the 
up/down  coxinters.  Figure  7  shows  the  in^xirtant  signals  that  are 
used  to  generate  the  reference  signals  for  controlling  the  up/down 
counters.  is  the  ac  coupled  demodulated  analog  signal  out  of  the 
compass  PLL.  The  signal  CR  is  generated  by  detecting  the  zero  crossings 
of  Vj,.  The  period  of  CR  Is  measured  by  a  digital  counter  for  every 
rotation  of  the  probe  with  a  resolution  of  10  ys.  The  period  measure¬ 
ment  is  stored  on  the  tape  recorder  and  in  a  temporary  buffer.  The  data 
in  this  temporary  buffer  are  used  to  preset  a  down  counter  which  counts 
at  a  rate  four  times  faster  than  the  period  up  counter.  This  down  count 

is  repeated  to  generate  the  signal  si,  which  is  a  series  of  pulses  that 

roughly  divides  the  time  period  into  four  equal  parts.  The  SI  signal 
is  used  to  generate  the  S2  signal.  S2  is  generated  by  a  one-stage 
flip-flop  that  is  reset  at  tg  and  t^  and  stepped  at  t^,  t.2  and  t^.  The 
positive-going  edge  of  S2  is  used  to  clock  the  state  of  CR  into  a  1  bit 
data  register.  The  output  of  the  data  register  is  the  Conpass  Quadrature 
Reference  signal  (CQR).  The  Compass  In-Phase  Reference  (CIR)  is  gener¬ 
ated  by  clocking  a  one  into  a  data  register  at  tg  to  t^  and  a  zero  in  at 

t2*  There  are  small  errors  in  the  generation  of  CQR  emd  CIR,  which 

are  corrected  when  the  data  are  processed  in  the  conputer.  CIR  is  used 
rather  than  CR  because  if  there  is  any  baseline  wandering  of  it  will 
appear  as  noise  in  the  timing  of  the  negative-going  edge  of  CR.  But 
since  the  time  of  the  negative-going  edge  of  CR  is  not  measured,  a 
correction  cannot  be  Implemented. 

The  four  up/down  counters  shown  in  Fig.  6  eure  controlled  by  CQR  and 
CIR.  These  counters  up/down  count  the  PLL  frequencies,  NF^  and  NF^.  At 

the  end  of  a  count  period,  the  counters  have  measured  the  in-phase  and 
quadrature  con^nents  of  the  electric  field  and  coiqpass  signals.  The 
two  components  of  the  compass  signal  are  used  to  correct  for  the  phase 
shift  error  caused  by  the  receiver  between  CQR  and  the  FM  modulated 
signal  from  which  is  derived.  The  compass  components  are  also  used 
to  eliminate  the  fall  velocity  component.  The  up/down  counters  average 
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the  baseline  carrier  frequencies  of  the  FM  signals.  Hiese  are  counters 
that  just  count  up,  making  a  measurement  of  the  baseline  carrier  frequen¬ 
cies  of  electric  field,  confess  coll  and  tenperature  signals.  Ihere  Is 
also  a  counter  that  measures  elapsed  time  to  the  nearest  10  ms. 
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Figure  7.  Timing  diagram  for  in-phaee  and  quad-phaee  counters. 
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4.  Pre-Drop  and  Start  of  Drop  Controls 

The  start  of  a  drop  Is  detected  by  sensing  when  the  compass  analog 
signal  goes  above  a  preset  threshold.  Going  above  the  threshold 
sets  a  flag  called  PF  (probe  falling)  and,  as  long  as  the  threshold  is 
reached  at  least  once  every  600  ms,  the  flag  will  stay  true. 

The  threshold  is  set  so  that  when  a  probe  starts  falling  emd 
rotating  the  PF  flag  will  turn  on  within  1  s.  Ihe  threshold  setting  is 
dependent  on  the  earth's  horizontal  magnetic  field.  The  threshold  can 
be  Increased  near  the  magnetic  equator  to  reduce  false  triggers.  At 
high  latitudes  the  threshold  must  be  reduced.  Note  that  when  the 
horizontal  magnetic  field  is  nearly  zero  the  system  cannot  develop  an 
accurate  CD  signal  and  thus  velocity  information  is  compromised. 

Ihe  PF  flag  is  used  by  the  receiver  to  switch  CR  between  an  8 -Hz 
square  wave  generated  by  the  time  base  emd  CD.  is  used  to  generate 

CD  by  passing  it  through  the  zero-crossing  detector.  Tbe  8  Hz  square 
wave  is  used  as  a  default  signal  by  the  receiver  to  collect  data  before 
and  after  a  drop.  Without  it  there  would  be  no  timing  signals  for  the 
counters. 

5.  Controller 


The  controller  shown  in  Fig.  8  regulates  the  collection  and  process¬ 
ing  of  digital  data  in  the  receiver.  The  heart  of  the  controller  is  an 
'r'CA  1802  microprocessor  with  6K  (K=1024)  bytes  (8  bits)  of  EPROM  (eras¬ 
able,  programmable  read-only  memory)  and  16K  bytes  of  RAM  (read  and  write 
memory).  Data  are  collected  by  the  controller,  stored  on  internal  magnetic 
tape  and  sent  to  the  HP  9845  con5)uter.  "nie  flow  of  data  is  controlled  by  a 
seven-level  priority  code  for  interrupts  and  DMA  (direct  memory  access) 
transfers. 

The  receiver's  operator  enters  data  and  commands  through  a  16-pad 
numeric  Iceyboard,  a  20-digit  alphanumeric  display  and  control  switches 
on  the  front  panel.  The  operator  is  able  to  enter  into  the  receiver  the 
data  to  be  recorded  on  the  magnetic  tape  along  with  the  profile  data 
collected  during  an  actual  drop.  The  data  recorded  and  the  storage 
format  will  be  discussed  later  in  the  tape  recorder  section . 

The  controller  also  has  the  capability  of  performing  a  small  eunount 
of  data  processing  to  provide  a  quic)c  look  at  the  profiles  in  real  time 
on  em  external  XYY  plotter.  The  counter  values  from  a  single  rotation 
are  normalized  by  the  rotation  period  and  averaged  over  a  number  of 
rotations.  These  processed  data  are  sent  to  the  three,  digital  to 
analog  converters. 
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Data  from  the  signal  processing  section  buffers  are  collected  once 
every  rotation  of  the  probe  and  stored  In  RAM  until  a  2K  byte  buffer  Is 
filled.  The  controller  then  sends  the  2K  data  buffer  to  the  tape 
recorder  and  HP  9845.  Besides  storing  data,  the  controller  can  also 
find  the  digital  data  for  a  particular  drop  on  the  digital  tape  recorder 
and  play  It  back  for  quick-look  processing  or  pass  It  on  to  the  HP  9845. 

6.  Digital  Tape  Recorder 

The  tape  recorder  Is  Digital  Electronic's  Model  3447  cartridge 
magnetic  tape  drive  with  four  tracks  and  erase,  write  and  read  heads. 

We  use  3M  DC300A  1/4-lnch  tape  cartridges  with  a  storage  capacity  of 
approximately  10  million  bytes  of  unformatted  data.  Data  are  recorded 
serially  at  6400  bits  per  Inch. 

The  data  capacity  Is  much  greater  than  Is  needed  by  the  receiver,  but 
It  was  cost  effective  to  use  a  design  shared  with  another  program.  One 
cartridge  can  store  more  than  50  drops,  but  because  of  the  high  probe  cost 
relative  to  tape  cost  It  is  recommended  that  not  more  than  10  drops  be  put 
on  a  cartridge. 

The  tape  drive  reads  immediately  after  writing  and  performs  a  CFC 
(cycle  redundancy  check)  on  the  data  read.  In  the  event  of  an  error,  the 
data  block  is  recorded  again  (without  backspacing  and  erasing  the  first). 
The  controller  will  try  three  times  to  write  the  data  block,  and  then  move 
on  to  record  the  next  block  of  data. 

Data  are  recorded  in  2K-byte-long  records.  There  eure  only  three  types 
of  records:  data  records,  end-of-file  records  and  end-of-information 
records.  The  end-of-information  record  indicates  where  recording  can  begin 
without  writing  over  previous  data;  it  is  always  added  to  the  tape  at  the 
completion  of  a  drop.  Because  the  eunount  of  data  storage  Is  not  a  problem, 
all  records  have  128  byte  headers.  The  header  Is  made  up  of  words  that  are 
2  bytes  each  (16  bits).  Table  1  is  a  list  of  the  words  and  their  position 
in  the  header. 

The  preeunble  Is  used  by  the  tape  recorder  electronics  to  find  a 
record  during  a  tape  read.  When  the  recorder  is  searching  for  data,  it 
looks,  for  at  least  39  zeros  followed  by  a  one  before  it  will  put  its  DAD 
(data  detected)  line  true. 

The  controller  will  write  an  end-of-file  record  emd  em  end-of- 
Informatlon  (EOI)  record  at  the  end  of  each  drop  when  the  operator  sets 
the  end-of-drop  switch  on  the  front  panel.  When  a  new  drop  is  to  be 
recorded  on  tape,  the  controller  looks  for  the  EOT  record  and  positions 
the  tape  write  head  In  the  inter-record  gap  before  the  EOI  record.  At  the 
start  of  writing  the  new  drop,  the  EOI  record  will  be  erased. 
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Table  1. 


Word  #  Name 

1  Preamble 

2  Preamble 

3  Preeunble 

4  Keyword  (record  type) 

Data  record 
End-of-file  record 
End-of-lnformation  record 

5  Record  # 

6  Number  of  times  the  record  has  been  recorded  on  tape 

7  Version  #  of  receiver  program 

8  Number  of  data  words  per  scan 

9  Tape  #  (cartridge  #) 

1 0  Track  # 

1 1  Cruise  # 

1 2  Drop  # 

13  Version  #  of  drop 

14  Number  of  files  on  tape,  including  this  drop 

15  Real  time  year 

16  Real  time  day  of  year 

17  Real  time  hours  (24) 

18  Real  time  minutes 

19  Real  time  seconds 

20  Number  of  previous  scans  in  this  file 

21  Number  of  previous  scans  in  this  record 

22-64  These  eure  spares  that  ^are  filled  with  all  F's> 


Data  (HEX) 
0000 
0000 
0001 

AAAA 

AAAB 

AAAC 


Each  record  has  one  record  header  and  64  scans  of  data.  One  scan  of 
data  contains  all  the  data  collected  during  one  rotation  of  the  probe.  The 
makeup  of  the  sczuii  is  given  In  Table  2. 
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Table  2. 

Channel  #  Name  No.  of  Bytes 

1  Sync,  word  (7777HEX)  2 

2  Status  2 

Bit  #  (true  state  -  1) 

0  temperature  carrier  present 

1  E  field  carrier  present 

2  Compass  carrier  present 

3  Probe  falling  (PF) 

4  Compass  channel  F3 

5  8  Hz  default  OFF 

6  Manual  XY  start 

7  Peal  time  mode 

a  CTLO  (HP  9845  control  line  0) 

9  CTLI  (HP  9845  control  line  1) 

1 0  Spare 

1 1  Spare 

12  Spare 

13  Spare 

14  Spare 

15  End  of  drop 


3 

Temperature  baseline 

(B^) 

2 

4 

Period  of  rotation 

(T) 

2 

5 

Compass  in-phase 

(ic> 

2 

6 

E  field  in-phase 

2 

7 

Compass  baseline 

‘«C> 

2 

8 

E  field  baseline 

2 

9 

Compass  quadrature 

(Cc) 

2 

10 

E  field  quadrature 

2 

11 

Rotation  counter 

2 

12 

Elapsed  time  counter 

2 

13 

Real  time  hours  (24/day) 

2 

14 

Real  time  minutes 

2 

15 

Real  time  seconds 

2 

Total  30 


For  a  rotation  rate  of  8  Hz,  it  takes  about  8  seconds  to  fill  the 
2K  byte  buffer  of  data. 
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7.  Computer  Interface 

The  HP  9845T  computer  is  connected  to  the  receiver  by  a  16  bit  par¬ 
allel  I/O  Interface.  The  computer  can  send  control  words  to  the  receiver 
to  initialize  a  transfer  of  data.  The  receiver  is  designed  to  allow  the 
HP  9845  to  read  and  write  anywhere  in  the  RAM  memory  space  of  the  receiver. 
The  HP  9845  can  also  read  from  the  EPROM  memory  space  to  check  the  EPROM 
in  case  of  a  problem  that  is  caused  by  the  receiver  program.  Data  are 
transferred  through  the  interface  by  DMA.  The  maximum  rate  of  data 
transfer  is  limited  by  the  receiver  to  about  64K  bytes  per  second,  not 
including  the  transfer  setup  time  of  the  9845.  It  takes  about  32  ms 
plus  setup  time  to  transfer  a  2K  byte  block  of  data. 

During  a  probe  drop,  the  9845  can  be  locked  out  from  writing  into 
the  memory  of  the  receiver.  With  the  computer  lock-out  switch  on,  only 
the  data  blocks  will  be  transmitted  to  the  9845. 

8.  Analog  and  FM  Outputs 

The  receiver  has  analog  and  FM  outputs  that  are  used  for  a  quick 
look  and  for  backup  data  storage.  There  are  two  means  for  getting  a 
quick  look  at  the  analog  profile.  The  analog  voltages  of  electric  field 
and  compass  coll  are  available  on  BMC  connectors  on  the  front  panel. 

These  signals  can  be  fed  into  a  two-phase  lock-in  amplifier  that  will 
demodulate  the  electric  field  into  two  components  using  the  compass  coil 
voltage  as  a  reference  signal.  The  components  are  displayed  on  an 
*  function  of  time.  Also,  as  mentioned  in  the 
controller  section,  there  are  D  to  A  outputs  on  the  front  p£mel  that 
can  be  used  to  drive  an  X,Y^,y2  plotter. 

The  receiver  has  available  on  the  front  panel  FM  carriers  for 
temperature,  electric  field  and  compass  to  be  recorded  on  an  HP  3960 
or  similar  Instrumentation  recorder  for  backup.  The  FM  signals  can  be 
played  back  through  the  front  panel  connectors  to  reprocess  a  drop  emy 
time  it  is  needed. 


D.  SOFTWARE 

HP  9845T  BASIC  language  programs  are  described  here.  DXGET  is  for 
acquisition,  DXPRO  for  processing,  SPLOT  for  series  plotting,  CROSS  for 
cross-correlation,  structure- function,  and  coherence.  Listings  emd 
seunple  runs  are  found  in  Appendix  A. 
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1 .  Acqul s it Ion- -DXGET 

DXGET  accepts  a  user-specified  number  of  data  scans  (one  repetition 
of  all  variables)  from  the  digital  receiver.  The  conqputer's  real-time 
clock  is  sampled  just  before  starting  the  single  DMA  ENTER  statement 
into  the  Integer  data  array,  Oin(*).  Because  ENTER  must  run  to  comple¬ 
tion,  the  8  Hz  default  in  the  receiver  must  be  on.  The  program  %»s  kept 
very  simple  so  as  not  to  risk  data  loss. 

After  the  data  are  ENTER* d,  the  user  enters  comments  and  the  file 
name.  The  data  are  then  written  to  mass-storage,  either  floppy  disc  or 
tape  cartridge. 

2.  XTVP  Signal  emd  Data  Processing  Description 

The  XTVP  probe  and  digital  receiver  transfer  functions  are  de¬ 
scribed  to  provide  a  basis  for  the  application  of  a  signal  model. 

Careful  attention  to  gains,  phases  and  timing  is  required  to  determine 
oceanic  water  velocity  profiles  accurately. 

The  probe  input  stages  shown  in  Fig.  2  ceui  be  described  with  three 
transfer  functions  for  electric  field,  fall  speed  correction  amd  compass 
coil  : 


®EF2 


®C0R2 


®CC2 


=7 

=E  ' 


E? 


(8) 


Estimated  gains  and  phases  are  functions  of  frequency  amd  typically 
are  represented  as  phasors,  G  -  G  /G  ,  where  G^  is  the  magnitude 
of  G  and  G^  is  the  phase  of  G.  ^ - 


Voltage  to  frequency  (V/F)  converter  factors  in  the  probe  are 
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'EFVF 


CCVF 


E7 


=-  (Hz/V) 


(9) 


=8 


^  (Hz/V)  . 


Solving  for  the  probe  Inputs  as  a  function  of  outputs  yields 


®C0R2 


-  -  Ep 

®EPVF  ®EF2  ®EF2 


(10) 


^CCVP  <^C2 


where  all  quantities  are  complex  because  both  amplitude  and  {^ase  eure 
needed. 

Gain  amplitudes  for  each  probe  are  measxired  during  manufacturer 
phases  are  estimated  from  a  transfer  function  analysis  using  nominal 
component  values.  The  analog  gains  measured  at  7  Hz  are 


°EP  *■  ' 

Gcor  -  V=C  ' 
®cc  “  * 


These  choices  of  output  measurement  points  introduce  some  loading 
effects  because  and  Eg  are  rather  high  Impedance.  The  loading  is 
estimated  from  nominal  component  values. 


The  voltage-to-frequency  converters  are  calibrated  statically. 
Our  analysis  shows  a  negligible  phase  angle. 
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The  digital  receiver  response  to  Input  Is  described  In  terms  of  a 

timing  dlagr2un  (Fig.  7).  The  counter  start,  stop  and  up-to~down  times 

(t  ,  tg)  we  developed  from  the  zero-crossing  detector  output  CR 

ana  the  rotation  periods  T  .  and  T  . 

n"i  n 

The  In-phase  (I),  quadrature  (Q)  and  baseline  (B)  counter  outputs 
(Fig.  6)  are  signed  summations  of  the  number  of  cycles  of  the  phase  lock 
loop  (PLL)  output  that  are  counted  during  the  counter  reference  signals 
CIR  and  CQR.  Approximating  the  summations  by  Integrals  simplifies 

analysis.  The  following  generation  formulae  are  for  the  n^^  rotation, 
where  N  is  the  appropriate  PLL  frequency  multiplier  and  F(t)  is  the 
frequency  Input  to  the  PLL: 


^2  ^4 

I  =  N  /  F(t)  dt  -  N  /.  P(t)  dt 


S  ^5 

=  N  /.■’  F(t)  dt  -  N  /.  P(t)  dt  , 
"  *=3 


B  =•  N  f  F(t)  dt  . 
”  ^0 


The  times  when  the  counter  reference  timing  generator  changes  the 
states  of  CIR  and  CQR  are 


to  =  0 


-  I  Tn-i 


t2  “  9  Tn-1 


3 

t3  *  4  Tn-l 


^4  “  ’’n  ' 


•  4  Tn  . 
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Note  that  there  is  a  significant  phase  shift  between  and  CR.  Thus 
of  the  coil  signal  is  nonzero* 

The  present  processing  models  probe  carrier  frequencies  for  electric 
field  and  compass  coll  channels  as  follows: 


F(t)  -  A  cos  (ut  +  ^)  +  C  +  Dt  +  Et^  +  noise  , 


where  A  and  ^  are  the  amplitude  and  phase  of  the  probe  carrier  frequency 
modulation  and  «>  is  the  probe's  radian  rotation  frequency.  C,  D  and  E 
allow  for  the  exponential  Impulse  response  of  the  probe  filters 
T^,  T^,  (Fig.  2). 

Expanding  1,  Q  and  B  according  to  F(t)  we  have 

In  “  u  +  "I*)  +  Ct2  +  j  Dt2^  +  j  Et2^] 

-N[  ^  sin(u)to  +  4))  +  Ctg  +  j  Dtp2  +  I  Etp^] 

-N[  ^  sin(o)t4  +  <(.)+  Ct^  +  I  Dt^^  +  j  Bt^^]  , 

-  2N[  ^  sin(a)t3  +  (ji)  +  Ct^  +  j  Dt^^  +  -j  Et^^] 

-N[  ^  sin(a)t,  +  (t>)  +  Ct^  +  j  Dt^^  +  j  Et^^]  (14) 

-N[  ^  sin(u»t5  +  (|>)  +  Ctg  +  j  Dt^^  +  j  Et^^]  , 

Bn  -  Nl  ^  sin(ut4  +  *)  +  Ct4  +  j  Dt42  +  j  Bt4^] 

-N[  ^  ain(uJto  +  <|»)  +  Ctg  +  j  Dtp^  +  y  Etj,^]  . 


Time  variations  in  u  significantly  influence  the  counter  outputs. 
In  general,  one  must  use  the  exact  time  intervals  when  processing.  The 
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time  Intervals  for  and  are  the  same  (tg,  t,/  ^4)'  while  those  for 
Q  are  1/4  cycle  later  (t^,  t.,  ^5)*  Normalization  of  counter  outputs 
tfius  requires  separate  anS 


■^in  “  '^n 


V  =  Vi  ' 


Qn 

T  =  T 
Bn  n 


(15) 


However,  01  In  the  sinusoidal  arguments  Is  approximated  by  u>  =  2it/Tjj, 
with  a  further  approximation  of  =  1  which  results  in 


Ulti 


# 


i 


5  . 


(16) 


The  measured  ms  deviations  of  appear  to  be  bounded  by  0.5%  which 

roughly  corresponds  to  0.5%  rms  noise  in  I  and  Q.  This  seems  acceptable 
at  present. 

In  any  case,  this  noise  is  included  in  the  velocity  error  estimated 

from  I'  and  Q*  noise  (see  Eq.  19).  Thus  we  can  write,  using  u  =  2ti/T: 
n  n 


^Tl  4A 

iT  “  -  ’’in  +  C(Tn.i  -  Tn) 

+  D(1/2  Tn_i2  _  Tn2)/2  +  E(1/4  Tn-i^  -  Tn3)/3  » 

Ql%  Af^ 

ii - 27  C{Tn.i-  T„)5/4 

+  D(17  Tn-1^  -  25  Tn^)/32  (17) 

+  E(53  Tn_i3  -  125  Tn3)/i92  , 


C  T„  +  1/2  D  Tn2  +  1/3  E  Tn^  . 


To  solve  for  A  and  ^  we  find  c,  D  and  E  from  B^,  and  B„^^  by 

solving  a  linear  3x3  matrix  equation.  The  other  values  of  B  are: 
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Bn-1 


C  Tn-1  -  1/2  D  Tn-i^  +  1/3  E  Tn-i^  , 


(18) 


*n+1 

N 


C  Tn+1  +  D  (TnTn+1  +  1/2  T^+i^) 
+  1/3  E  [(Tn  +  Tn+i)3  -  Tn^]  . 


The  corrected  In-phase  and  quadrature  results  can  then  be  determined: 


4ANTin 


(19) 


Qn' 


4ANT 


2D. 


2Tr 


COSj) 


To  obtain  averaged  FM  amplitude  and  phase,  we  convert  to  rectangular 
coordinates: 


-  A  sin^ 


2‘rr 

4NTin 


In' 


Fq  -  -  A  COS^ 


21: 


(20) 


Then  we  filter  using  a  Bartlet  (l.e.,  triangular)  window  with  weights  w^^: 

'•l  -  «  -nInVTi„  , 

(21) 

—  2it 

“  4N  '^Bn/TBn  . 
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Baseline  carrier  frequencies  are  computed  similarly: 


_  Nav 


Averaged  amplitude  and  phase  P^  are  found  from  Pj  emd  Pq  by 
converting  to  polar  coordinates  using  a  four-quadrant  arctangent  function: 


Pa  -  (Fi2  +  Fq2)^2  ^ 


1  "^I 

P  =  tan  -  . 

P  _F 

Q 

Thus  an  input  signal  of  cos(a)t  +  will  result  in  Pp  =  (|).  When  ^>0,  the 
input  signal  leads  cos  (ut).  The  reference  is  the  zero-crossing-detector 
output  CR. 

Using  phasor  notation  we  write  the  complex  frequency  deviation  in 
terms  of  eunplltude  and  phase  for  both  the  electric  field  and  compass  coil* 


P  -  P  /P  , 
E  Ea  /  Eto 


P-  =  F  /F 
C  Ca  /  Ep 


Using  (10)  we  compute  the  complex  voltages  at  the  probe  input: 


■  '»  Zfa;  ■ 


E_  -  E  /E 
C  Ca  /  CP 
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The  east  and  north  velocities  are  found  as 


®Ea 


FzL(1+Ci) 


COS||> 


V 


B. 


'Ea 


PzLd+C-i) 


sinij)  +  W 


Fjj  (1-K:2) 

Fz  (1+Ci)  ' 


(26) 


where 


'll  *  Be  “  Be  +  a  < 

$g  =  -  Egp  , 

Be  “  "  ®ep  ' 

O  *  IT  • 


(27) 


W  is  the  estimated  fall  rate,  dz/dt,  of  the  probe  computed  from  a  depth 
versus  time  polynmlal. 

Depth  versus  time  was  measured  using  five  special  probes  with  pres¬ 
sure  transducers  instead  of  thermistors.  An  average  quadratic  was  fit 
to  these  measurements  for  use  in  determining  Z  emd  W  versus  time  during 
processing. 


p  *  -Z  -  3.1  +  4.544t  -  0.0006749t^.  (28) 


A  "tilt"  correction  (discussed  in  section  V.c.)  is  applied  to  the 
north  velocity  component  to  remove  effects  caused  by  north-south  probe 
tilt.  The  "area"  A  of  the  coil  is  computed  assuming  no  probe  tilt: 


A 


E  T 
_ C_ 

2.Fh  ' 


(29) 
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r 

> 

f- 

j 


where  T  is  the  rotation  period,  is  the  coil  signal,  and  Fjj  is  the 
earth's  horizontal  magnetic  field. 

Individual  corrected  estimates  of  the  north  velocity  component  are 
found  by  using 


V  =  - 


EA 


F^L(1+C^) 


sini|«  +  W 


130) 


where  A  is  the  vertical  mean  of  A. 


3.  Plotting  and  Analysis  Programs 

a.  SPLOT 

SPIjOT  is  used  to  obtain  more  insight  into  the  profiles.  It  plots  a 
series  of  U,  V  profiles  with  various  processing  applied.  Generally  a 
quadratic  fit  is  performed  on  the  profile  to  obtain  the  residuals.  These 
can  be  rotated  to  a  given  time  by  specifying  the  inertial  period  and  the 
time  of  each  profile.  Cartesian  or  polar  displays  are  available.  One  can 
also  plot  the  fits. 

b.  CROSS 

CROSS  will  compute  cross-correlations,  structure  functions,  or  coher¬ 
ences  between  U  and  V  profiles.  Input  is  set  up  in  advance,  and  then 
processing  continues  unattended.  Many  sets  and  combinations  of  files  can 
be  processed  in  a  single  run. 


I 


E.  PROTE  CALIBRATIONS 
1 •  Sippican's  Calibration 

The  XTVP  gains  =  E^/Eg, 
and  *  E(./Eg  are  measured  during  manufacture  before  potting 

shows  the  test  setup  to  obtain  Gg^,  G^qr'  ®i 
the  quadrature  potentiometer  P 


-  E^/Ej,, 


CC 


=  Fg/E, 


Rr/CRg  +  R7) 

to  obtain  a  null  reading  on  both  the  I  and  Q  meters  of  the  PAR 
This  forces 


EFVP 

Figure 

igj,.  The  operator  adjusts 
and  the  resistance  box  R^ 
129. 


'ATTEN 


PRC»E 


PAR 


(31) 
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where  (j)  is  the  phase  offset  of  the  PAR  129.  The  Sippican  calibration 

estimates  Gpj^Qgg  =  Rj  +  100,  which  is  a  result  of  considering  only  the 

resistive  part  of  the  attenuator.  Further  analysis  of  the  attenuator 

transfer  function  shows  that  this  estimate  is  2d50ut  3%  too  large  for 

and  Gqqj^  because  approximately  15“  phase  angles  exist  at  7  Hz.  The 

exact  error  depends  on  4  •  Table  3  shows  results  of  the  analysis 

^  PAR 

where  P  and  R2  were  adjusted  to  obtain  emalytic  probe  gains  and  phases. 


Table  2. 

1  %  error  of 


P  =  R^/(Rg+R^) 

«2 

*‘^ATTEN* 

~'*’atten 

R  +  1i 
2 

®EF 

0.0244 

25278 

24495 

15.2“ 

3.5% 

®COR 

0.525 

1036 

1097 

15.3“ 

3.5% 

°CC 

0.011 

3598 

3698 

1.0“ 

0.0% 

Figure  9.  Standard  setup  used  by  Sippican  for  probe  calibrations. 
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These  estimates  assume  d)  =0.  Our  PAR  129  indicates  -3®  to  -5® 

PAR 

with  dials  set  to  0®.  Sippican's  PAR  5204  indicates  a  value  closer 
to  0®.  For  correct  results,  the  PAR  dials  should  be  set  so  that  the  Q 
meter  indicates  zero  for  the  signal  equal  to  the  reference. 


Obtaining  the  correct  GpRosE  r'®<3'iires  knowledge  of  the  quadrature 
adjust  jotentiometer  P,  which  is  not  recorded.  However,  if  <|)pAR  is 
zero,  we  can  estimate  ♦;^tten  *  '^*PROBE  from  a  transfer 

function  analysis  of  a  typical  probe. 

From  the  computer  analysis  of  the  attenuator  gain  we  find  that 
1/(R2  +  100)  approximates  the  real  part  of  quite  closely.  Thus 

a  better  estimate  for  the  gain  magnitude  of  the  probe  is 


1g  1  =  (R„  +  100)  cosCd)^^^ _  ) 

PROBE  2  ^PROBE 


(32) 


Ggp^  and  are  found  statically  by  applying  +0.5  V  and  then 

-0.5  V  to  both  and  Eg  while  recording  the  voltage-to-frequency  con¬ 
verter  output  frequencies  F^  and  F^,.  The  change  in  frequency  divided 
by  the  change  in  voltage  provides  the  estimate  for  ®nd 

Early  calibrations  had  a  IK  resistor  in  series  with  the  ±0.5  V 
source.  Thus  the  early  Sippican  Ggpyp  and  estimates  were  low  by 

3.3%  and  1.7%,  respectively.  In  May  1980  the  IK  resistor  was  removed 
from  the  setup. 

2,  APL-UW's  Calibrations 


The  calibrations  described  in  the  previous  section  are  time 
consuming.  A  simplified  calibration  procedure  is  used  by  Sippicam  Corp. 
in  the  manufacture  of  XCP's.  We  wanted  to  verify  their  calibrations  to 
eliminate  uncertainties  in  the  velocity  determination.  We  also  wanted 
to  be  able  to  correct  old  calibrations  by  finding  amy  systematic  differ¬ 
ences.  Therefore,  ten  unpotted,  Slppican-calibrated  probes  were  pur¬ 
chased  for  our  measurements. 

Our  calibrations  (Fig.  10)  were  done  with  tx>th  channels  of  the 
probe  having  nominal  signal  amplitudes  at  all  times  rather  than  setting 
one  channel  to  zero  input  while  measuring  the  other  as  Sippican  did. 

Our  input  signals  were  exactly  in  phase  however,  due  to  lack  of  test 
equipment.  (We  would  have  liked  to  check  for  cross-talk  and  non¬ 
linearity.) 
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EF-CALTO 
A/D  CH2 


TO  PROBE 
Ef  (  +  ) 


TO  PROBE 
EcC) 


Figure  10.  Special  setup  used  by  APL~UW  for  probe  calibrations. 


To  check  the  Slpplcan  calibrations,  we  wanted  to  measure  the  probe 
at  the  same  points.  However,  this  meant  loading  and  Eg  (Fig.  2)  and 
thus  changing  the  overall  transfer  functions.  We  therefore  measured  at 
Eg  and  Eg,  and  estimated  the  transfer  functions  to  E^  and  Eg. 

Note  that  in  the  future  these  intermediate  points  need  not  be 
measured;  only  the  three  overall  transfer  functions, 

°COR®EFVF'  °CC°CCVF  ^  needed. 

Because  only  single-ended  test  signals  with  a  common  reference  were 
available,  the  drive  signal  should  go  to  the  "plus"  (noninverting)  inputs 
of  Eg  and  E^.  This  procedure  reduces  drive  signal  loading  and  tests  all 
the  components. 
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The  measurement  points  EFCAL  emd  CCCAL  are  needed  since  there  is 
significant  interaction  between  the  two  attenuator-adjust  switches. 

The  attenuations  from  EFCAL  and  CCCAL  to  EFOUT  and  CCOUT  are  estimated 
stagewise  using  a  dc  source  and  a  digital  voltmeter. 

The  ac  coupling  to  channels  3  and  4  of  the  HP  593 13A  digitizer 
isolates  its  input  bias  current  frcan  the  probe.  These  transfer  func¬ 
tions  are  allowed  for  in  the  ainalysis. 

The  HP  59313A  digitizer  multiplexes  the  analog  to  digital  converter 
between  four  input  channels.  The  time  differences  between  channels  are 
corrected  by  adjusting  the  phase  angles  of  the  sinusoidal  fits  during 
analysis. 

The  digital  receiver  is  used  in  the  real-time  mode.  The  acqui¬ 
sition  program  sets  up  a  direct  memory  access  from  the  receiver.  This 
runs  concurrently  with  input  from  the  digitizer.  Each  channel's  S2unple 
rate  is  limited  to  5  Hz  by  the  speed  of  the  HP  9845  desk-top  computer. 

Operation  is  not  fully  automatic  due  to  lack  of  equipment;  the 
operator  is  required  to  change  the  attenuator  settings  manually  for  each 
"set"  in  a  "run."  Typically,  four  linearly  independent  sets  of  attenu- 
ater  settings  are  used  per  calibration  run,  although  the  program  can 
handle  nine  sets. 

Following  acquisition,  the  processing  runs  unattended  for  several 
minutes  to  compute  gain  estimates  for  that  run.  We  made  from  5  to  15 
runs  per  probe  to  observe  the  variability  of  the  method  and  obtain 
reliable  results. 

To  obtain  amplitudes  and  phases  of  the  digitizer  channels,  they  are 
least-squares  fit  to 

a^  +  a^  cosiot  +  a_  sinut  +  a^(t-t)  ,  (33) 

1  2  3  4 

where  u)  is  the  radian  frequency,  t  is  the  mean  t  and  a^,  ...,  a^  are  the 
coefficients  determined  by  the  "set."  u  is  found  by  iterative  adjust¬ 
ment  to  obtain  phase  continuity  between  successive  blocks  of  the  CC-CAL 
channel.  The  procedure  is  identical  to  that  described  by  Sanford  et  al. 
(1978).  The  amplitude  A  and  phase  (|i  are 
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A 


+  a  2)1/2 


4,  = 


-  tan 


-1 


(34) 


The  amplitude  and  phase  angle  of  each  sinusoidal  fit  and  the 
average  I  and  Q  from  the  receiver  were  then  least-squares  fit  to  a 
linear  model  of  complex  probe  gains: 


®EF  ®COR  ®C  ' 


^8  ®CC  \ 


^E  “  "^EFYE  ' 

*"0  “  ®CCVF  ®8  ' 

Fg  =  (GEFVF  Ggp)  Eg  +  GgpvF^  ®C  ' 


Tr  =  (G, 


CC  '^CCVF^  • 


(35) 


The  first  four  expressions  are  to  be  compared  with  Sippican’s, 
while  the  last  two  are  used  to  find  the  overall  transfer  functions  of 
the  probe. 

The  receiver  counters  average  over  each  revolution,  so  the  measured 
Fg  and  F^  are  quieter  than  E^  and  Eg  which  are  only  seunpled  once  per 
200  ms.  Thus,  the  overall  transfer  functions  can  be  determined  more 
accurately  and  with  less  effort  than  the  individual  transfer  functions. 

The  circuit  gains  (e.g.,  Gggyg)  eure  complex  coefficients  a.  in 
models  of  the  form  ^ 


y 


m 


I 

j-1 


‘j  ''j 


(36) 


I  where  y  is  the  output  and  the  Xj’s  are  the  inputs. 

r 


I 
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To  solve  for  the  a. 's,  several  linearly-independent  "sets"  of  y 
versus  Xj  are  required.  Each  measured  output  y^^  is  related  to  the 
inputs  Xj^j  as  follows: 


m 

y,  =  Z  a.x  +  r  .  for  i  =  1,  n  (37) 

1  3  iJ  1 


where  n  is  the  number  of  sets  and  the  r^  are  the  residuals.  The  complex 
gains  a^  are  found  by  least-squares  fitting  in  a  manner  similar  to  the 
sinusoidal  fitting. 

For  each  probe,  the  gains  were  averaged  over  a  number  of  runs. 

These  averages  include  only  those  runs  with  low  fit  noise  and  low 
receiver  noise. 

Multiple  short  runs  enabled  elimination  of  bad  sections  of  data 
instead  of  repeating  an  entire  long  run.  Multiple  runs  also  allowed  an 
estimation  of  the  reliability  of  the  method.  The  sinusoidal  fits  are 
less  sensitive  to  the  rotation  frequency  estimate  when  the  fits  are 
shorter . 

Our  measurements  indicate  that  the  complex  gains  from  probe  to 
probe  are  quite  similar,  within  0.4%  in  magnitude  and  0.4*  in  phase, 
as  summarized  in  the  standard  deviations  in  Table  4. 


Table  4. 


Amplitude 


Deviation 

Phase 

Deviation 

from  Analytic  (%) 

from  Analytic  ( * ) 

Avg. 

Std .  Dev . 

Avg. 

Std.  Dev. 

®EF 

CM 

e 

o 

0.1 

-  0.2 

CM 

• 

O 

®COR 

-1.6 

0.4 

-  0.1 

0.4 

®CC 

-1.8 

0.1 

-  0.3 

o 

• 

o 

Note,  however,  that  the  averages  for  and  aunplitudes  differ 

significantly  from  the  analytic  estimates. 

Our  measurements  deviate  from  Sippican's  using 

cos (4 _ _ )  as  summarized  in  Table  5. 

PROBE 
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Table  5. 

Amplitude 
Deviation  from 
Sipplcan's  (%) 


! 

Avq. 

Std.  Dev. 

°EF 

0.6 

0.1 

®COR 

1.3 

0.5 

1 

®CC 

0.2 

0.2 

The  Ggp  and  errors  are  significant  and  would  be  smaller  if  the 

Sippican  PAR  phase  error  were  1*  as  summarized  in  the  following  table. 


Table  6. 


Amplitude  Deviation  (%) 
from  Sipplcan's  Assuming 
1*  PAR  Error 


Avg# 

Std.  dev. 

*^EF 

OeO 

0.1 

°COR 

00 

« 

o 

0.5 

'^CC 

0.2 

0.2 

^FVF 

and 

®CCVF  relatively 

from  probe  to  probe  compared  with  Sipplcan's  measurements  for  the  same 
nine  probes.  The  following  table  summarizes. 


Table  7. 


Our  V/F 
Estimates 


Sipplcan’s  V/F 
Estimates 
Allowing  for 
IK  Resistor 


Deviations  of 
Our  Estimates  From 
Sippican 's 


I  i 


Avg.  Std.  Dev. 

Avg. 

Std.  Dev. 

(Hz/volt) 

(%) 

(Hz/volt) 

(%) 

III 

®EFVF 

994 

0.2 

1000 

1.0 

-0.6 

®CCVP 

1001 

0.1 

1000 

0.6 

0.1 
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The  general  conclusion  about  the  calibration  problem  is  that  future 
designs  should  eliminate  the  need  for  calibration,  or,  if  needed,  make 
it  automatic  with  frequent  verification  of  the  test  setup. 

We  have  not  attempted  to  answer  the  question  of  how  the  calibra¬ 
tions  change  with  potting  or  depth.  There  is  some  reason  to  believe 
potting  may  affect  the  V/F  converter  calibration.  We  have  not  deter¬ 
mined  why  the  measured  gains  differ  from  the  analytic  estimates. 


SENSITIVITY  ANALYSIS  OF  PROBE 


Sensitivity  <uialysis  of  the  XTVP  probe  is  performed  using  the 
analytic  transfer  functions  for  the  probe  while  varying  the  component 
values.  We  have  not  shown  sensitivities  for  individual  components; 
rather  we  have  computed  the  variability  of  the  probe  transfer  functions 
as  a  function  of  component  tolerances.  We  have  not  shown  statistics  for 
the  V/F  converters. 

The  component  tolerances  are  used  to  choose  random  component 
values.  Uniform  distributions  were  used  for  simplicity.  Typically  20 
realizations  of  the  transfer  function  with  independent  random  component 
values  are  used. 

The  maximum,  minimum,  average  and  standard  deviation  for  the 
amplitude  and  phase  of  each  transfer  function  are  computed  given  the 
rotation  frequency  and  component  tolerances  using  a  computer  program. 

Table  8  shows  deviations  at  7  Hz  using  standard  component 
tolerances  of  0.1%  resistors  and  10%  capacitors. 


Table  8. 


Amplitude 


rms(% ) _ Max-Min(%) 


Phase 


rms(%)  Max-in ( % ) 


24333 

1096 


15.2 

-165.0 

•179.0 


If  1%  resistors  and  10%  capacitors  are  used,  the  amplitude 
deviations  increase  while  the  phase  deviations  remain  the  same,  as  can 
be  seen  in  the  following  table. 
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Table  9. 


Amplitude  Phase 


Avq. 

rms(%) 

Max-Min(%) 

Avq. 

rms(%) 

Max-Min(%) 

24568 

1.1 

5.0 

15.2 

0.5 

2.0 

1094 

1.7 

5.9 

-165.0 

0.5 

2.0 

3682 

1.2 

4.0 

-179.0 

0.05 

0.25 

An  attempt  to  determine  the  pressure  variability  uses  0.5% 
capacitor  deviations  and  no  resistor  deviations  (Table  10). 


Table  10. 


Amplitude  Phase 


Avq. 

rms(%) 

Max-Min(%) 

Avq. 

rms(%) 

Max-Min{% ) 

24494 

0.00 

0.00 

15.2 

0.005 

0.02 

1097 

0.00 

0.01 

-165.1 

0.005 

0.02 

3697 

0.00 

0.00 

-179.0 

0.001 

0.002 
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IV.  Operations 

A.  EQUIPMENT  INVENTORY 

Table  11  lists  the  equipment  that  was  shipped  to  support  the 
deployment  of  about  50  XTVP's  fr<Mn  the  USNS  Kane. 


Table  11. 


i 


Box  # _ Contents 


Function 


1. 


2. 


3. 


a)  PAR  Lock- in  Amplifier 


Resolves  analog 
U  and  V  velocity 
components 


b)  HP  3960  Analog  Tape 
Recorder 


Records  FM  signals 
during  drop 


c)  Sippican  Digital 
Receiver 


Determines  digital 
U  amd  V  velocity 
components;  sends 
data  to  9845  computer 


a)  Tektronix  TM506  Mainfraune 


b) 


1) 

PS  503A 
Incl. 

Power  Supply 

2) 

FG 

501 

Function  Generator 

3) 

DC 

503 

Counter/Timer 

4) 

DM 

501 

Multimeter 

5) 

SC 

502 

Oscilloscope 

HP 

3964 

Analog  Tape  Recorder 

Repair  and 

calibration 

equipment 


Spare  recorder 
for  FM  signal 
storage 


c)  APL-UW  Digital  Receiver 


Spare  receiver 
to  Sippican  made 
unit 


d)  HP  7046A  XYY  Plotter 


Analog  plotter  for 
real  time  display 


a)  HP  984 5T  Computer  (CRT) 


Digital  acquisition 
and  processing 


Weight 

(lb) 


291 


305 

(total) 

50 
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i: 


Weight 


Box 

« 

Contents 

Function 

(lb) 

4. 

a) 

HP  984 5T  Computer  (CPU) 

Digital  acquisition 

and  processing 

101 

5. 

a) 

HP  987 2A  Plotter 

Plots  digital 

U,V  profiles 

94 

6. 

a) 

HP  9885M  Disk  Drive 

Digital 

storage  for 

raw  and  processed 

profiles 

128 

7. 

a) 

HP  98034A  HP-IB  Interface  ^ 

b) 

HP  98035A  Opt.  100  Real 

984 5T  computer 

Time  Clock 

s  peripheral  and 

c) 

HP  98032A  16-bit  1/0  APL-UW 

interface  cards 

d) 

HP  98032A  16-bit  I/O  Sipp.  DR ^ 

e) 

Fluke  8024A  Multimeter 

Test 

f) 

HP  32E  Calculator 

Hand  calculator 

g) 

Misc.  Electronic  Spares 

Repair 

75 

8-10. 

a) 

Floats  (Ethofoam) 

For  XTVP  surface 

(3  boxes  used  because  of 

flotation 

bulk) 

(Total  3  boxes) 

50 

11. 

a) 

Misc.  Support  Equipment 

— 

100 

12. 

a) 

10  Mag.  Tapes  for  Analog 

Recording 

Supplies 

b) 

50  Cassettes  for  Digital 

Recording 

It 

c) 

4  boxes  Graph  Paper  for 

Analog  Plots 

ft 

d) 

1  box  Xerox  Paper 

ft 

109 

13. 

a) 

10  Mag.  Tapes  for  Analog 

Recording 

Supplies 

b) 

25  Diskettes  (8  1/2"  IBM) 

for  Digital  Recording 

If 

c) 

4  boxes  Graph  Paper  for 

Digital  Plots 

It 

d) 

1  box  Xerox  Paper 

II 

e) 

1  Tool  Box  -  Misc.  Hand  Tools 

n 

f) 

1  XTVP  Log  Book 

M 

84 
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Weight 

Box  » _ Contents _ Function _ (lb) 


14. 

a) 

b) 

c) 

d) 

Tektronix  7603R  Oscilloscope 
7A22  Plug-In  Amplifier 

7A26  Plug-In  Amplifier 

7B23  Plug-In  Time  Base 

FM  data  display 
•1 

It 

II 

85 

15. 

a) 

b) 

c) 

Launcher  Tube  Ends  1 

Adaptor  Tubes 

Metal  Hose  Cl2unps  and  Hardware  1 

1  For  launching 
r  tube  assembly 

73 

16. 

a) 

b) 

c) 

d) 

2  Sippican  Hand  Launchers 

Deck  Cable 

Misc.  Cables 

Scope  Probes 

XTVP  launcher 

H 

N 

•1 

89 

17. 

a) 

b) 

1  Garbage  Can 

Anti-hypothermia  Suits 

For  on-deck  check 

Personnel 

protection 

24 

18. 

a) 

5  LEXAN  Tubes,  2  1/2"  x  9* 

For  deck  launcher 

10 

19. 

a) 

Box  Misc .  Stores 

57 

20. 

a) 

Probes  (12/box) 

50 

21. 

a) 

Probes 

50 

22. 

a) 

Probes 

50 

23. 

a) 

Probes 

50 

TOTAL  SHIPPING  WEIGHT 

1,925 

This  equipment  comprises  both  analog  and  digital  processing  instrumentation 
including  spare  data  receivers,  analog  tape  recorders  and  launch  hardware. 
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B.  INSTALLATION  OF  XTVP  SHIPBOARD  LAUNCH  AND  RECEIVING  SYSTEM 

1 .  Deck  Setup 

a.  Determine  exact  weather  deck  location  where  probes  will  be 
launched.  Some  (but  not  all)  of  the  factors  that  will  fix  this 
position  are: 

1)  Concurrence  of  Chief  Scientist  and  Chief  Bos’n  (or  equiva¬ 
lents) 

2)  Consideration  of  other  scientific  projects  on  same  cruise 

3)  Distance  from  assigned  laboratory  space 

4)  Type  of  ship 

5)  Wind/weather  expected,  and  its  influence  on  launching  opera¬ 
tions 

6)  Sufficient  space  aft  of  launcher  loading  position  to  swing 
launcher  tube  inboard  in  order  to  load  probes  and  attach 
flotation  collars. 

b.  Assemble  LEXAN  launcher  tube  (usually  two  9*  sections  are 
enough,  unless  ship's  rail  is  >10’  above  waterline).  Attach 
launcher  loading  end  to  ship's  rail  (Pos.  A)  so  outer  end  can  be 
swung  inboard  for  loading  and  outboard  for  launching.  Attach 
all  necessary  support  and  securing  lines.  Prepare  a  release 
line  and  leave  coiled  at  point  where  launcher  end  is  brought  in¬ 
board  (Pos.  B) .  Secure  a  30  gal.  plastic  garbage  can  at  ship’s 
rail  at  (Pos.  A).  Fill  to  ~16"  with  clean  seawater. 

c.  The  Sippican  hand  launcher  and  intercom  (currently  Radio 
Shack  #  43-221)  are  needed  at  Pos.  A. 

1 )  The  hand  launcher  is  usually  hung  on  a  bulkhead  hook  or 
equivalent,  to  protect  it  when  not  used  in  the  launching 
tube,  with  about  10'  of  slack  cable  to  enable  probes  to  be 
tested  in  the  plastic  bucket. 

2)  The  intercom  is  secured  in  a  suitable  location  at  about 
head  height,  using  a  convenient  stanchion  or  bulkhead. 

Note  that  this  unit  is  not  waterproof.  During  inclement 
weather  or  high  sea  states  it  should  be  stored  in  the  lab 
when  not  being  usedj  thus  a  "shock  cord"  (quick  release) 
type  of  attachment  should  be  used. 

d.  The  launcher  and  intercom  wires  must  be  routed  to  the  lab  opera¬ 
ting  area.  Considerable  care  must  be  taken  to  avoid  hazards 
that  may  injure  the  wires.  If  possible,  an  overhead  or  bulkhead 
route  is  preferable  to  a  deck  route. 
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2.  Laboratory  Setup 

a.  Determine  from  Chief  Scientist  the  maximum  available  bench 
and  deck  space. 

b.  Set  up  communications  link  to  bridge  (mandatory) ,  and  radio 
room  and  chartroom  if  possible. 

c.  Bench  space  allocation  should  be: 

1 )  HP  9845T  computer  ~20"  wide 

2)  HP  9872A  digital  plotter  and  HP  9885M  disc  drive  are 
mounted  together  vertically  '^20"  wide 

3)  HP  7046B  analog  plotter  (if  used)  ~19"  wide 

4)  Approximately  30"  of  bench  area  for  writing 

5)  If  more  bench  space  available,  some  of  the  following 
items  listed  as  rack  mounted  may  be  used  in  36"  high 
racks  which  can  usually  be  mounted  on  top  of  the 
bench. 

d.  Rack  space.  The  following  is  a  "top-to-bottom"  guide. 

1)  HP  3964  analog  tape-recorder  -  must  be  accessible  to 
load  and  unload  tapes. 

2)  PAR  129A  lock-in  amplifier  -  occasional  changes  in 
control  settings  will  be  made  on  this  unit. 

3)  Tektronix  TM  506  mainfreime  scope  -  check  to  ensure 
electric  field  and  compass  signals  are  present. 

4)  XTVP  digital  receiver  -  once  connected,  usually  no 
changes  need  be  made  to  this  unit. 

e.  If  additional  rack  space  is  available,  the  backup  HP  3960 
analog  tape  recorder  and  XTVP-DR  should  l>e  mounted  so  as 
to  allow  a  quick  switch  if  the  primary  units  malfunction. 

f.  Boxes  of  expendable  supplies  (probes,  magnetic  tape, 
plotting  paper,  etc.)  should  be  stored  in  the  lab  area  if 
possible  for  easy  access  during  the  cruise.  Boxes  of 
spare  parts  or  seldom  used  items  may  be  stored  in  a  hold 
or  other  nonlab  area. 

g.  Before  sailing,  all  items  must  be  properly  secured  in 
accordance  with  good  searaanllke  practice.  The  Chief 
Boatswain  (or  equivalent)  can  advise  and  assist,  and  may 
be  able  to  suggest  Improvements,  etc. 

h.  Try  to  do  a  dummy  drop,  testing  a  probe  in  a  bucket,  etc. 
and  communicating  with  bridge,  radio  room,  engine  room,  etc. 
before  the  cruise  begins.  All  Irrstallatlons,  rigging  emd 
testing  are  more  easily  done  alongside  the  dock. 
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C.  SUMMARY  OF  XTVP  lAUNCH  AND  OPERATIONS 

1 .  General  Instructions  to  Bridge 

a.  Establish  communications  channels. 

b.  E:mphaslze  radio  silence  for  bridge  and  radio  room. 

c.  Qnphasize  speed  requirements  (must  be  less  than  8  knots).  In 
high  winds,  head  into  wind/seas  to  prevent  paying  out  too  much 
wire. 

d.  Provide  the  bridge  with  written  instructions  and  a  copy  of  this 
summary  if  possible. 

2.  Pre-Launch  Procedure 

a.  Operator  gives  bridge  desired  position  for  next  drop  and 
asks  for  5  minute  warning. 

b.  Launch  person  picks  out  a  probe,  writes  serial  number  in  the 
drop  log,  puts  probe  in  hand  launcher,  removes  magnet  (turns 
on) ,  puts  probe  into  bucket  of  seawater  emd  waves  magnet  in  the 
vicinity  of  the  electrodes  (not  to  turn  on  and  off,  but  to 
induce  a  signal  in  the  coil  channel).  lab  confirms  presence  of 
FM  carriers,  and  that  V_  and  deviates  with  magnet.  Launch 
person  replaces  magnet  (turns  off). 

c.  When  ready  for  launch,  lab  person  comes  to  the  deck  to  help  put 
probe  in  launcher  ( a  second  person  is  needed  to  catch  the  probe  as 
it  falls  down  launch  tube).  Fuse  and  float  are  attached  to  the 
probe  (see  Appendix  B),  and  then  complete  unit  is  secured  in 
launcher.  Lab  person  returns  to  the  lab. 

d.  Lab  person  puts  voice  header  onto  the  emalog  magnetic  tape  (e.g., 
STREX  '80,  drop  number,  probe  number),  and  loads  acquisition 
program  into  HP  9845  computer. 

e.  Bridge  informs  lab  that  the  ship  is  on  or  approaching  station. 

f.  Lab  acknowledges  and  requests  radio  silence  for  bridge  and  radio 
room. 

g.  Lab  informs  deck  to  launch  udien  ready. 
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3.  Ijaunch  Operations 

a.  Deck  operator  informs  lab  that  it*s  10  seconds  to  launch,  lights 
fuse,  and  hollers  into  intercom.  Lab  operator  starts  analog  tape 
recorder,  9845  acquisition  program,  and  elapsed  time  counter 
(model  DC  503  timer-counter) . 

b.  Fuse  burns  at  120  seconds  per  yard;  27  inches  (about  80  to  90 
seconds)  was  used  during  STREX. 

c.  The  end  of  the  fuse  is  bent  at  90  degrees  and  thrust  into  the 
Ethafoam  float  to  prevent  the  fuse  from  rotating.  See  Appendix  B 
for  construction  details. 

d.  Launcher  is  lowered  down  toward  the  waves. 

e.  Operator  waits  for  a  high  wave  so  that  the  probe  will  only  drop  1 
to  2  feet  from  the  launcher  into  the  water. 

4.  Data  Acquisition  and  Processing 

a.  Turn  on  HP  9845  with  AOTOST  key  locked  down  and  the  system 
cartridge  in  T15  (right-hand  cartridge  slot). 

b.  Press  special  function  key  "k^"  to  load  and  start  DXGET,  the 
acquisition  program.  Press  CONT  again  when  probe  is  launched. 

c.  After  the  drop  is  completed,  type  the  file  name  for  the  disk  file 
to  store  data  and  add  comments  to  the  real  time  when  DXGET  was 
started. 

d.  Earth's  magnetic  field  can  be  found  using  the  PADLX  program. 

PADOC  requires  the  date  and  position  as  input. 

e.  To  process  the  disk  file,  press  special  function  key  "k.j"  to 
load  and  start  DXPRO,  the  processing  program.  Answer  the  prompts 
with  the  appropriate  file  neunes  and  probe  numbers.  Add  the  drop 
and  earth's  magnetic  field  to  the  calibration  data  found  on  the 
XCAL  file.  Processing  will  take  about  20  minutes  to  obtain  a 
completed  plot. 


5.  Post-Launch  Procedure 

a.  Lab  advises  bridge  that  the  probe  has  been  dropped,  and  the  time 
is  entered  in  the  bridge  log. 

b.  Operator  writes  the  time  which  appears  on  the  9845  CRT  display. 
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c.  Ship  continues  for  2  min  at  the  same  course  and  speed,  after  which 
It  is  told  to  come  Into  the  wind  emd  sea  and  essentially  maintain 
direction. 

d.  At  the  end  of  the  drop,  the  wire  breaks  at  the  hand  launcher  so 
that  no  wire  is  left  in  the  tube. 

e.  The  XBT  wire  canister  stays  on  launcher  until  next  drop  to  protect 
launcher  contacts. 

f.  The  operator  writes  down  the  elapsed  time  from  when  the  fuse  was 
lit  to  the  time  the  wire  broke. 

g.  Operator  logs  the  end-of-drop  count  from  the  2malog  tape  recorder. 

h.  Operator  notifies  bridge  that  drop  has  been  completed  and  that 
there  is  no  need  for  further  radio  silence. 
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V.  Error  Analysis 

A.  CONTAMINATION  OF  XTVP  PROFILES  FROM  VESSEL'S  EM  FIELDS 

Contamination  of  XTVP  velocity  measurements  is  severe  in  the  near 
vicinity  of  large  research  vessels.  Based  on  the  simple  dipole  character 
of  /essel  fields,  our  rule  of  thumb  has  been  to  release  a  probe  1-2  ship 
lengths  away.  This  section  describes  some  recent  analyses  to  assess  the 
amount  of  contamination  found  during  two  recent  experiments. 

Separation  of  vessel-caused  disturbances  from  the  desired  motionally 
induced  field  is  possible  only  because  the  former  can  be  so  large.  Near 
the  ship  we  frequently  find  electric  currents  that  are  interpreted  as  due 
to  a  velocity  in  excess  of  10  cm/s.  Since  there  are  no  ocean  flows  of 
this  speed,  we  can  assume  this  velocity  is  due  to  the  vessel  and  compare 
it  with  a  model. 

The  model  used  is  a  horizontally  oriented  current  dipole  at  the  sea 
surface  aligned  with  the  vessel.  The  idea  here  is  that  electric  currents 
exist  around  the  vessel  because  of  corrosion  and  cathodic  protection.  The 
latter  cause  probably  will  be  dipole-like  and  of  rather  small  scale.  The 
horizontal  and  vertical  electric  current  density  in  the  area  would  be 
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where  p  is  the  dipole  strength  in  ampere  meters.  These  expressions  are 
twice  those  found  for  a  dipole  in  an  infinite  medium  because  the  current 
is  confined  to  only  the  lower  half  domain. 

For  a  ship  speed  of  5  knots  and  a  fall  speed  of  4.5  m/s  (say 
10  knots),  the  horizontal  position  of  the  probe  will  increase  at  a  rate 
of  0.5  Wor  x=  a  +  0.5  z,  where  a  is  the  distance  of  release  from  the 
center  of  the  dipole. 

The  XTVP  measures  the  horizontal  component  of  the  electric  current 
as 
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where  a  is  the  electrical  conductivity  zmd  5  =  z/a.  The  electric 
current  is  connected  to  velocity  by  the  relation 
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One  aspect  of  this  expression  to  note  is  that  =  0  at  a  depth 

of  z  =  2a{1+/2)  =  4.8  a.  A  near-surface  notch,  or  low-signal  zone,  is 
frequently  observed  in  the  Kane  and  other  near-vessel  dropped  profiles. 
This  is  because  the  electric  currents  lines  are  curved  and  must  become 
vertical  as  they  converge  toward  the  source  and  sinlc.  A  probe  will 
experience  this  zone  of  zero  horizontal  electric  currents  at  a  depth 
of  z  4.8  a.  Thus  we  would  expect  it  to  loe  seen  at  deeper  depths  for 
large  release  separations.  Note  also  that  the  sign  of  changes  at 
z  =  4.8  a. 

Figures  11  and  12  show  two  drops  from  the  September  1979  Kane 
experiment.  An  example  is  shown  for  the  SE-NW  leg  and  for  the  NE-SW 
leg,  two  different  orientations  of  the  ship  with  respect  to  the  earth' s 
magnetic  field.  The  absolute  values  of  east  (u:  dashed) ,  north  (v;  dash- 

dot)  and  speed  [(u^  +  v^)^2:  solid]  are  plotted  versus  depth.  The  near¬ 
ship  notch  is  seen  in  both  figures,  and  a  signal  decay  of  edoout  z~^  is 
observed  as  expected.  At  a  depth  of  30  m  and  deeper,  the  ocean-induced 
signal  seems  to  dominate. 

Figiires  13  and  14  show  two  other  drops,  one  from  the  remote 
launcher  and  another  frcxa  the  towed  rubber  boat.  Neither  of  these  pro¬ 
files  shows  the  vessel  signature.  They  quickly  converge  on  a  signal 
level  of  20-30  cm/s,  which  is  the  ocean  contribution. 

In  Fig.  15,  a  comparison  of  the  data  of  Fig.  11  is  made  with  a  fit 
[i.e.,  the  absolute  value  of  (41)]  of  the  model  for  p/xF^a  *  4.9  x  10^ 
which  corresponds  to  p  •  30.8  A-m,  and  for  a  =  1  m.  A  current  dipole 
moment  of  this  amount  is  typical  for  ships  of  this  size.  The  model  and 
data  agree  reasonably  well  until  the  ocean  field  takes  over  at  20  m.  It 
should  be  emphasized  that  the  model  predicts  >1  cm/s  error  until  a  depth 
of  ~100  m. 
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Curves  are  of  east  (dashed) ^  north  (dash-dot)  and  speed  (solid) 
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Figure  15.  Drop  281  USliS  Kane,  deck  launched.  Figure  16.  Dipole  influence  for  a  =  1,  5, 
Profile  of  speed  compared  with  10,  SO  and  100  m. 

dipole  influence  model. 


The  model  can  be  used  to  predict  Interference  from  the  ship  as  a 
function  of  a,  the  distance  of  the  release  point  from  the  ship. 

Figure  16  presents  these  results  for  a  =  1,  5,  10,  50  eund  100  m  for 
p  »  30.8  A-m.  As  expected,  the  level  of  Interference  and  the  depth  of 
the  notch  change  as  a  is  Increased.  These  calculations  show  that,  even 
for  a  >  100  m,  the  Interference  is  about  3-5  cm/s  until  a  depth  of 
60-70  m.  In  order  to  limit  the  errors  to  <1  cm/s  it  seems  that 
a  3  170  m  Is  needed.  Caution  should  be  used  in  interpreting  these 
results,  since  the  model  Is  rather  crude  euid  is  based  on  only  one  cali¬ 
bration.  On  the  other  hand,  p  is  reasonable  In  Its  strength,  and  the 
results  are  comparable  to  our  rule  of  thumb. 

Two  examples.  Figs.  17  amd  18,  of  data  and  model  fits  are  shown  for 
drops  launched  from  the  starboard  rail  of  the  NOAA  Oceanographer .  In 
this  case,  a  current  dipole  of  30.8  A-m  was  again  used,  but  a  >•  2.5  m. 
Again  the  fit  is  reasonably  good,  and  a  predicted  Interference  exceeds 
1  cm/s  until  a  depth  of  -150  m.  The  larger  depth  scale  for  the 
Oceanographer  versus  the  Kane  Is  In  the  sense  of  their  lengths,  but  this 
result  may  only  be  fortuitous,  since  vessel  length  does  not  enter  the 
model. 
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Figure  27.  Drop  438  WAA  Oaeanographerj  deak 

launched.  Profile  of  speed  compared 
with  dipole  model. 
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Figure  18.  Drop  396  NOAA  Oceanographer,  deak 

launched.  Profile  of  speed  compared 
with  dipole  model. 


Finally,  the  Influence  of  the  magnetic  distortion  of  the  Kane  was 
examined.  In  Fig.  19,  the  magnitude  of  the  coll  area  is  shown  for  a 
sampling  of  differently  launched  profiles.  The  coll  area  Is  used  as  a 
measure  of  magnetic  disturbance.  It  Is  also  sensitive  to  tilt,  which 
makes  the  Interpretation  of  this  signal  somewhat  ambiguous.  Nonethe¬ 
less,  If  the  ship  distorts  the  earth's  magnetic  field,  then  we  expect 
the  coil  output  to  change  with  depth.  The  coil  eurea  is  the  variable  to 
look  at,  since  variations  due  to  changing  rotation  frequency  are  re¬ 
moved.  In  Fig.  19  the  profiles  seem  to  converge  to  a  similar  value  at 
about  30  m.  Above  this  depth  the  area  seems  to  be  Influenced  by  the 
vessel. 

The  final  two  figures,  20  and  21,  show  examples  of  simultaneous 
profiles  from  deck  and  remote  launchers  aboard  the  Kane.  Here  we  see 
clear  cases  of  the  convergence  of  the  area  variable  below  30  m.  since 
^  the  compass  signal  does  enter  the  electric  field  channel.  It  Is  Impor- 

I  tant  to  avoid  magnetic  contamination. 
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Figure  19. 

Coil  area  profiles  for  variously  launched 
probes  from  USNS  Kane. 
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Figure  20.  Simultaneous  deck  and  remote  launched 
profiles  of  coil  area  from  USNS  Kane. 
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Figure  21.  Simultaneous  deck  and  remote  launched 
profiles  of  coil  area  from  USNS  Kane. 
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The  Kane  profiles  show  a  tendency  for  the  coil  area  to  be  low 
around  the  vessel  compared  with  that  farther  away.  This  suggests  that 
near  the  ship  the  magnetic  field  Is  less. 

On  the  basis  of  this  analysis,  it  Is  recommended  that  probes  be  re¬ 
leased  1-2  vessel  lengths  (100-200  m,  depending  on  the  ship)  behind  the 
vessel  to  reduce  electric  and  magnetic  Influences  to  less  than  1  am/s. 
The  analysis  Is  subject  to  considerable  error,  since  It  Is  based  on  an 
extrapolation  of  near-shlp  observations.  More  profiles  should  be  taken 
at  distances  of  1-50  m  from  the  ships,  or  more  detailed  electric  and 
magnetic  measurements  should  be  made.  The  latter  does  not  require 
expenditure  of  XTVP  probes.  Also  there  may  be  a  significant  Improvement 
achieved  in  the  reduction  of  the  electric  Influence  If  active  cathodic 
protection  (If  used)  Is  suspended  during  profiles.  That  Is,  p  may  be 
due  to  electric  currents  deliberately  circulated  to  protect  the  propel¬ 
ler  and  shafts  from  corrosion.  Suspension  of  this  activity  for  brief 
periods  would  be  beneficial  to  the  data  quality  and  not  too  detrimental 
to  corrosion  control. 

The  numerical  calculations  were  carried  out  by  John  Lltherland. 


B.  INFLUENCES  OF  SPATIAL  AND  TEMPORAL  VARIATIONS  OF  THE  GEOMAGNETIC 

FIELD 

Spatial  and  temporal  variations  of  the  geomagnetic  field  can 
strongly  Influence  the  operation  of  the  XTVP  and  interpretation  of  the 
measurements.  The  elements  of  the  main,  steady  geomagnetic  field  deter¬ 
mine  the  generation  of  the  motlonally  induced  electric  currents. 

Regions  of  large  and  small  geomagnetic  components  are  shown  In  Fig.  22. 
Errors  in  the  loiowledge  of  these  elements  lead  to  errors  in  the  inter¬ 
pretation  of  the  measurements.  An  error  in  Fjj  tends  to  contribute  an 
error  to  the  north  flow  component,  while  F^  errors  lead  to  scaling 
errors  for  both  flow  components.  Variations  of  P  in  space  and  time  lead 
to  the  generation  of  J*  electric  currents. 

Errors  in  estimating  the  magnetic  field  components  arise  mainly 
from  magnetic  anomalies  of  spatial  scales  smaller  than  detailed  in  the 
world  charts  (DMAHC  magnetic  field  charts,  #33  eund  36).  The  magnitude 
of  temporal  variations  is  generally  less  than  1%  of  the  steady  field. 
However,  these  time  variations  generate  induced  electric  currents  which 
can  be  quite  large  compared  with  the  motlonally  Induced  signals. 

The  main  field,  approximately  that  of  a  magnetic  dipole  aligned 
along  the  axis  of  rotation,  has  components 
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M  COS  6 


and 


(42) 


2M  sin  9 

- r~  ■ 

r 


15  3 

where  M  *  8  x  10  tesla-m  ,  0  is  the  latitude  (positive  to  north)  and 
r  the  geocentric  radius. 

The  variations  with  depth  are  small:  (1  y  =  10  teslas) 


3P 

32 


H  *  1 1 

-  1.4  X  10  cos6  tesla/ra 


=  -  1.4  COS0  y/1(J0  m  , 


(43) 


3F 
_ 2 

3z 


a  2.8  8in9  X/100  m  . 


Within  a  5  )an  deep  ocean,  the  percentage  changes  to  F^j  and  F^  are 


■''z 


-  0.25%  . 


(44) 


The  horizontal  variations  are 


1  H  1  ,  .  „ 

7  "00  ‘  I  ' 

(45) 

1  ^^z 

7  “al  ”  -  2  • 


An  uncertainty  in  latitude,  A9,  leads  to 
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— ^  -  A9  tan0  , 

(46) 

AF 

— — ^  “  A9  cot9  . 

P 


At  mid-latitudes  (9  “  40«),  the  errors  are  ~1-2%  per  degree  of  lati¬ 
tude.  The  world  charts  (#33  and  36)  are  contoured  every  1000  y  for  Fy 
and  2000  y  for  F^.  and  can  be  scaled  to  at  least  100  y.  if  the  charts 
were  accurate  to  100  y,  then  2Fjj/Fjj  =  0.5%  and  AFjj/Fj,  =  0.25%.  However, 
it  is  known  that  the  world  chart  is  not  accurate  to  this  extent  every¬ 
where. 

Small-scale  magnetic  2momalies  exist  over  many  topographic  features 
such  as  seamounts,  islands  and  submarine  ridges.  For  instance,  a  fine- 
scale  aeromagnetic  survey  of  Plantagenet  Bank,  25  n.mi.  SW  of  Bermuda 
(Young  and  Kantis,  1964),  reveals  that  the  undisturbed  field  is  4-6%  dif¬ 
ferent  from  the  world  chart.  Over  the  Bank  itself,  the  errors  reach  10- 
15%.  Vertical  and  horizontal  field  gradients  are  100  times  larger  than 
over  an  undisturbed  area. 

The  magnetic  field  generated  by  the  motionally  induced  electric 
currents  has  components  no  larger  than  0.25%  of  the  main  geomagnetic 
field. 


Temporal  variations  of  the  geomagnetic  field  generate  electric 
fields  and  currents  in  the  ocean.  These  magnetotelluric  fields  depend 
on  the  frequency  and  structure  of  the  source  magnetic  field  and  on  the 
depth  and  electrical  conductivity  of  the  ocean  crust  and  mantle. 

Magnetotelluric  currents  represent  one  of  the  largest  sources  of 
error  in  the  EM  profiling  method.  These  effects  are  generally  not  inde¬ 
pendently  measured  or  easily  inferred  from  land-based  magnetic  measure¬ 
ments  . 


Cox,  Filloux  emd  Larsen  (1971)  and  Fonarev  (1968)  have  provided 
estimates  of  the  electric  fields  generated  by  geomagnetic  variations. 
The  magnetic  variations  are  described  by  Chapman  amd  Bartels  (1940). 
Variations  having  periods  longer  than  one  day  generate  only  weak  elec¬ 
tric  fields  («1  yV/m).  Shorter  period  variations  are  responsible  for 
significant  electric  induction.  'Rie  major  categories  for  the  high- 
frequency  variations  are  the  solar-diurnal  variations,  bay-like  distur¬ 
bances,  magnetic  storms  and  short-period  variations. 
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Solar-diurnal  variations  are  always  present/  even  on  magnetically 
quiet  days*  These  variations  result  in  electric  fields  of  the  order 
of  3  X  10“^uV/m/Y  in  the  open  ocean.  The  maximum  influence  of  these 
variations  is  given  in  Table  12  [Fonarev  (1968)]. 

Bay-like  disturbances  derive  their  name  from  their  appearance  as 
bays  or  gulfs  on  magnetograms.  These  events  provide  mainly  horizontal 
magnetic  fields  which  decrease  away  from  the  auroral  zone  (70*).  Fre¬ 
quencies  from  tens  of  minutes  to  a  few  hours  are  present.  Bay  distur¬ 
bances  occur  10  to  40  times  per  year  with  an  amplitude  of  40-100  y  An 
estimate  of  the  resulting  induction  can  be  derived  for  a  plane  wave 
impinging  on  the  sea  surface.  Such  a  wave  will  be  attenuated  as  it 
propagates  into  the  sea  due  to  the  generation  of  electric  currents  with 
opposing  magnetic  fields.  At  any  depth,  the  magnetic  field  is 


B(z)  =  B  e 


z/6 


(47) 


where  B  is  the  surface  value  and  6  is  the  skin  depth.  The  skin  depth 
is  defined  as 


6 


1/2 

i 


(48) 


where  the  permeability  y  =  47r  x  10“"^  H/m,  o  is  the  electrical  conduc¬ 
tivity  and  0)  is  the  radian  frequency  of  the  wave. 

The  electric  currents  can  be  computed  from  Ampere’s  law; 


7  X  B  =  yJ  . 


(49) 


The  electric  field  due  to  the  current  density  J  is  J/o.  Hence 


B 

_  _ o  z/6 

E  »  — r  e 
yo6 


(50) 
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Table  12.  Magnetotelturia  effects  [after  Fonarev  (1968)]: 
For  solar-diumal  variations 


Latitude 

Activity 

Ltl 

E , u V/m 

V,cm/s 

<30» 

Quiet 

30-80 

0.9-2. 4 

4.5-12 

Disturbed 

60-100 

1. 8-3.0 

9.0-15 

30-60 

Quiet 

15-60 

0.45-1.8 

1.1-4. 2 

Disturbed 

25-110 

0.75-3.3 

1.9-8. 2 

>60» 

Quiet 

90-400 

2.7-12 

4.6-20 

Disturbed 

50-460 

1.5-14 

2.5-22 

For  magnetic  storm  variations^ 


Latitude 

Activity 

Lil 

E,ljV/m 

V/Cm/s 

<30" 

Weak 

0-30 

0-2 

0-9 

Moderate 

15-60 

1-4 

4-18 

Strong 

30-90 

2-5 

9-26 

30-60 

Weak 

40-120 

2-7 

6-17 

Moderate 

70-300 

4-16 

10-44 

Strong 

150-700 

9-41 

22-103 

>60» 

Weak 

70-600 

4-32 

7-60 

Moderate 

150-900 

9-52 

15-88 

Strong 

900-1500 

52-88 

88-150 

Vor  water  depth  of  5  km  and  o  ■  2.7  s/m. 
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This  expression  is  appropriate  for  an  infinitely  deep  ocean  or  when 
6  <  H.  The  latter  condition  occurs  for  wave  periods  of  5  min  or 
less.  For  longer  periods,  a  more  appropriate  expression  is: 


E(uV/m) 


B(y) 


/t 


(51) 


where  is  the  apparent  resistivity  (combination  of  ocean  £md  mantle 
resistivities)  in  ohm-m  and  T  is  the  wave  period  in  seconds.  According 
to  Poehls  and  von  Herzen  (1976),  p_  in  the  NW  Atlantic  is  adsout  20 

a 

ohm-m.  Hence , 


10  B(y) 
/t 


(52) 


For  a  bay-1  ilte  disturbance  of  40  y  over  a  period  of  3  hours, 


E  =  3.8  yV/m  , 


(53) 


leading  to  a  velocity  error  of  about  5  cm/s.  Since  the  bay-li)ce  distur¬ 
bances  are  of  very  large  scale,  it  is  possible  to  estimate  the  errors, 
perhaps  even  to  correct  the  measurements,  using  land-based  magnetic 
records. 

Magnetic  storms  are  more  irregular  than  bay  disturbances,  often 
having  rapid  changes  at  the  commencement  over  a  few  hours  followed  by  a 
gradual  recovery  over  tens  of  hours.  The  E/B  ratios  are  the  same  as  for 
the  bay  but  the  a  amplitude  of  B  can  be  much  larger,  particularly  in  the 
auroral  zone.  According  to  Fonarev  (1968),  magnetic  storms  are  as  fre¬ 
quent  as  20-50  times  per  year  during  years  of  maximum  solar  activity 
while  3-5  times  fewer  in  years  of  minimum  activity.  The  peak-to-peak 
variations  and  the  expected  electric  induction  and  velocity  errors  are 
listed  in  Table  12. 

Except  for  the  most  rapid  components  of  magnetic  storms,  bays  and 
diurnal  disturbances  produce  little  depth-dependent  electric  variations. 
That  is,  the  energetic,  long-period  disturbances  induce  mainly  depth- 
uniform  electric  currents,  and  these  do  not  contribute  errors  to  XTVP 
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profiles.  Short-period  variations  (periods  less  than  10  minutes)  are 
weak  and  contribute  little  induced  electric  field  except  in  polar 
regions. 

According  to  Fig.  16  of  Cox  et  al.  (1971),  the  electric  field 
has  a  variance  of  about  0.1  (pV/m)^  in  the  frequency  band  from  0.1  to 
12  c/h.  Thus  we  might  expect  deviations  between  profiles  spaced  several 
hours  apart  of  about  0.6  cm/s  due  to  changes  in  the  ambient  electric 
field.  Over  a  small  frequency  interval,  say,  1  to  12  c/h,  the  variance 
is  about  10”^  (pV/m)^  yielding  a  standard  deviation  of  0.2  cm/s. 


C.  TILT  EFFECTS  IN  XTVP  DATA 

The  XTVP  is  designed  to  measure  electric  currents  present  in  the 
sea  induced  by  the  motion  of  seawater  through  the  earth's  magnetic 
field.  Drever  and  Sanford  (1980)  and  Sanford  et  al.  (1978)  discuss  the 
calculation  of  oceanic  velocities  from  these  electrical  measurements, 
assiiming  that  the  instrument  remains  vertical.  Small  instrumental 
tilts,  however,  are  produced  by  vertical  shear.  In  this  report  the 
effect  of  these  tilts  on  the  computed  velocity  profile  is  investigated 
and  an  algorithm  to  correct  for  these  effects  is  developed  and  tested. 

1 .  Model  of  Tilt  Effects 


The  XTVP  measures  the  electric  potential  between  a  pair  of  elec¬ 
trodes  on  opposite  sides  of  a  rotating  cylinder  falling  through  the 
ocean.  The  measured  potential  is  the  sum  of  a  potential  A())  due  to 
induced  electric  currents  J  and  a  potential  due  to  the  motion  of  the 
probe  through  the  water.  Both  potentials  are  modified  by  the  presence 
of  the  insulating  probe  within  the  conducting  seawater. 

The  oceanic  electric  current  density  J  is  assumed  to  be  entirely 
horizontal,  due  to  the  large  aspect  ratio  of  oceanic  currents.  Let 


J/o  =  F^Lvx  -  u;f) 


(54) 


where  x,  y,  z  are  unit  vectors  in  an  earth  fixed  coordinate  system 
^  ^  ^ 

(Fig.  23).  F^  is  the  vertical  component  of  the  earth's  magnetic  field 
and  u,v  are  the  components  of  the  purely  horizontal  current  relative  to 
the  unknown  electrical  offsets  u*,v*  (Sanford,  1971).  This  electrical 
current  results  in  a  potential  drop 
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Magnetic 

Coordinates 


Z  verticol 


east 

(magnetic) 


north  (mognetic) 


Figure  22.  Coordinate  ayetems  used  in  the  analyaia,  (x^  p,  z)  ia  an  earth 

As 

fixed  ayaterrii  with  y  pointing  north  (magnetic) .  The  magnetic 
field  has  no  east  component ^  and  the  oceanic  velocities  have  no 

As  As  As 

z  component,  (x* y  y'y  z')  ia  a  coordinate  ayatem  fixed  with 

the  probe,  but  not  rotatingy  and  ia  rotated  by  anglea  a  and  B 
with  reapect  to  (xy  y,  z).  (x"y  p",  z")  ia  fixed  with  the  probe 
and  rotating  with  it  ao  that  p"  ia  along  the  electrode /coil  line. 
Table  12  givea  the  rotation  matricea  between  theae  ayateme. 


Li 
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Table  IS.  Rotation  matrioee. 


cos  a 

0 

sin  a 

R  ; 

y  axis  rotation  by  a  (ccw) 

0 

1 

0 

ot 

-sin  a 

0 

cos  a 

1 

0 

0 

R  ; 

0 

X  axis  rotation  by  $  (ccw) 

0 

cos  0 

sin 

0 

0 

-sin  0 

cos 

8 

cos  a>t 

-sin  u)t 

0 

R  : 

z  axis  rotation  by  ui  (cw) 

sin  uit 

cos  u>t 

0 

U) 

0 

0 

1 

Probe  coordinates ; 


y'  =  Ro 

•*  B  a 


X 

A 

Z 


COS  a 

R  =  -sin  a  sin  g 
-sin  a  cos  0 


0 

cos  6 
-sin  B 


sin  a 

cos  a  sin  0 
cos  a  cos  0 


x"  X 

Rotating  probe  coordinates;  y"  =  R,^  Rg  Rq  y 

A  A 

Z"  Z 


cos 

a 

cos 

b)t 

-cos 

8 

sin 

U)t 

sin 

a 

cos 

ut 

+ain 

a 

sin 

0  sin 

(dt 

-cos 

a 

sin 

0  sin 

(dt 

cos 

a 

sin 

cut 

cos 

8 

cos 

Ult 

sin 

a 

sin 

ut 

-sin 

a 

sin 

0  cos 

(dt 

+COS 

a 

sin 

0  cos 

(dt 

-sin 

a 

cos 

8 

-sin 

8 

cos 

a 

cos 

6 
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Mv  “  “(l+C'i )  J/o 


(55) 


across  the  probe  electrodes,  where  i.  is  the  electrode  separation,  is 
the  orientation  of  the  electrode  line,  and  C^j  =  0.9  gives  the  magnifica¬ 
tion  of  the  potential  difference  due  to  the  presence  of  the  probe. 

Because  the  electric  current  density  must  increase  as  the  current  is 
diverted  by  the  probe,  the  voltage  drop  increases  by  the  factor  1  + 

The  potential  induced  by  the  probe  motion  relative  to  the  water 
is  best  calculated  in  a  nonrotating  coordinate  system  oriented  with  the 
probe.  Let  z*  be  along  the  probe  axis.  The  fixed  system  x,  y,  z  can  be 
transformed  into  the  probe  system  x* ,  jf' ,  z'  by  a  rotation  of  a  about 
y  followed  by  an  x-axis  rotation  of  $  (Table  13,  Fig.  23).  In  this  coor¬ 
dinate  system  the  induced  potential  is  given  by  (Sanford  et  al. ,  1978, 
Equation  A12) 


A4ix  =  (Fy,  X*  -  Px»X’)W’ 

+  (1+C3)f"»(U'y'  -  V'xMF^.  , 


(56) 


where  W,  O',  and  V  are  the  probe  velocities^ relative  to  the  water  in 
the  nonrotating  probe  coordinate  system,  and  is  the  orientation  of 
the  electrode  line.  Notion  of  the  probe  relative  to  the  surrounding 
water  results  in  two  signals:  Induction  by  the  relative  motion  of  the 
probe  itself  and  by  the  perturbation  flow  arovind  the  probe.  These  two 
signals  may  nearly  cancel;  the  estimated  values  of  C2  and  C-  are  -  0.1 
and  -  0.8  respectively. 

The  east  and  north  components  of  velocity  are  determined  relative 
to  the  voltage  induced  in  a  coil  (the  con^ss  coll)  coaxial  with  the 
electrode  line.  For  technical  reasons,  a  fraction  c  of  the  coll  signal 
is  also  added  to  the  measured  electrode  signal.  Assuming  the  coil  to 
have  a  total  area  A^,  the  potential  Induced  in  the  coil  by  the  probe's 
rotation  is 


assuming 


uA  F^x" 


dt' 


dt 


<<u  . 


(57) 
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Using  the  rotation  operators  shown  in  Table  13  and  Eqs.  (55), 
(56)  and  (57),  the  following  expressions  can  be  derived  to  lowest 
order  in  o  and  6; 


A*  =  (1-K:^)fF  [u  cosujt  -  V  sinut]  , 


A*  =  (1-K:^)fW'  [(F  +$F  )sin(at  -  aF  coswt] 
12  y  z  z 


+  (1-K:,)i(F  -  gF  )  [U'cosojt  -  Vsinuot]  , 
3  z  y 

F  F 

z  z 

A*  =  -  F  oiA  [(1+  ~  g)siniiJt  -  a  “  cosuit]  . 

V  o  F  F 

y  y 


(58) 


(59) 


(60) 


The  XTVP  electrode  signal  transmitted  up  the  wire  is 


A(|)  =  A(f(  +  A4i  +  cA<ti  .  (61) 

V  I  c 


This  is  then  demodulated  with  the  coil  signal  to  produce  in-phase 
(north)  and  quadrature  (east)  signals.  If  a  =  g  =  U'  =  V  =  0,  the 
coil  signal  is  proportional  to  I  =  sinojt,  and  is  in  quadrature  with 
Q  »  co8(i)t.  The  demodulation  yields 


north : 


Atn  »  I&(P  *  -v(1+C^)fP2  +  C(1+C2)fW’  +ocuAQ]Fy  , 


(62) 


east: 

^  -  u(1+C^)fF^  , 


(63) 


where  the  overbar  denotes  a  time  average.  Equation  (62)  is  Identical  to 
Eq.  (4)  of  Drever  and  Sanford  (1980).  If  W  is  known,  the  oceanic 
velocities  u  and  v  can  be  determined. 
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The  direction  of  north  Is  defined  by  the  phase  of  the  coil  signal. 
For  a  vertical  probe,  the  coll  signal  passes  through  zero  when  the 
coil  (y")  points  north.  If  the  probe  is  not  vertical,  an  east-west 
tilt  results  in  a  phase  shift  of  the  coil  signal  so  that  this  zero 
crossing  no  longer  gives  the  seune  direction.  The  demodulation  signals 
using  (60)  are  now 

F 

2 

I  =  sinait  -  a  ~  cosait  ,  (64) 

y 

F 

z 

Q  =  cosojt  +  o  ~  sinuit  ,  (65) 

F 

y 


and  the  demodulated  signals  are 


north ! 

F 

A*  =  -  (1-k:  JfF  (V  +  a  u) 
n  1  z  F 

y 


+  F  (1+BF  /F  )[(1-K:,))IW’  -  coA  ] 
y  z  y  2  O 

F 

-  (1-K:  )fF  (1-0P  /F^)(V'  +o^U')  ,  (66) 

^  z  y  z  F 

y 


east: 

F 

A(^^  *  (1-K:^)fF^  [u  -  a  ^  v] 

y 

SF  F 

+  (1-K:_)fF^(1-  ^)(U’  -ar^V)  .  (67) 

z  y 


Equations  (66)  and  (67)  give  the  demodulated  potential  difference 
for  a  tipped  probe  with  velocities  U* ,  V’  and  W  relative  to  the  water. 
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Since  the  probe  is  a  stable  streaunlined  body,  it  will  be  assumed  to  fall 
along  its  length,  so  that  u'  =  V*  =  0.  There  is  no  direct  verification 
of  this  assumption.  However,  since  (1+C2)/( 1+C^ )  =  0.1,  the  measured 
potentials  are  much  more  sensitive  to  oceanic  velocities  (u,v)  than 
probe  velocities  (U',V'). 

The  probe  tilt  is  seen  to  have  two  major  effects.  An  east-west 
tilt  (a*0)  changes  the  measured  phase  of  the  coll  signal  and  therefore 
mixes  east  and  north  contributions.  This  is  seen  in  the  first  and  last 
terms  of  (66)  and  (67).  If  a  is  small,  this  effect  is  small.  A  north- 
south  tilt  changes  the  magnitude  of  the  magnetic  field  parallel  to  the 
probe  (F^'^'  leading  to  a  change  in  ijoth  the  coil  and  W  induced  sig¬ 
nals.  This  can  Ise  seen  in  the  second  term  of  (66). 

The  effect  of  these  tilts  is  seen  in  a  different  way  if  the  calcu¬ 
lation  is  done  entirely  in  the  fixed  coordinate  freune.  Suppose  the 
probe  is  falling  with  velocity  components  U,  V  and  W  in  a  stationary 
ocean  (i.e.,  J  =  0);  the  induced  potential  is  given  by 


= 


[F^V^  +  F^(UX  -  Vx)]«jr" 


(68) 


where  we  take  C^=C2=C3=0  for  simplicity.  Since  the  probe  is 
tilted  and  falling  along  its  length,  U  =  aW  and  V  *  PW.  Neglecting,  for 
the  moment,  the  small  phase  shift  caused  by  a, 


X 


n 


=  X  slnut  +  cosut  , 


(69) 


and  the  measured  signals  are 


north ; 

A4.n  -  PWF^  +  WFy  -  Fy(1  +  P  ,  (70) 

east: 


AA  “  -  a  WF  . 

z 


(71) 
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The  tilt  causes  the  probe  to  move  horizontally  relative  to  the 
water;  the  probe  measures  an  induced  potential  resulting  from  this 
motion.  The  resulting  in-phase  signal  in  (70)  is  clearly  present 

in  the  second  term  of  (66).  The  corresponding  quadrature  signal  -aWF2> 
however,  is  not  present  in  (67).  It  is  canceled  by  the  east-west  tip 
term  neglected  in  (70)  and  (71).  As  discussed  above,  an  east-west  tip  a 
results  in  a  phase  shift  in  the  coil  signal.  This  mixes  the  east  and 
north  potentials.  The  north  potential  is  dominated  not  by  the  north 
velocity  potential,  but  by  Induced  potential  due  to  W.  The  primary 
effect  of  the  coil  phase  shift  is  thus  to  mix  some  of  this  W  induced 
I^t^tial  into  the  east  potential.  The  additional  east  potential  is  of 
magnitude  aWF^  and  exactly  cancels  the  a  induced  potential  in  (71). 
Switching  to  probe  coordinates,  this  clearly  must  be  true,  since  the 
signal  induced  by  W  is  in  phase  with  the  coil,  and  cannot  appear  in 
the  east  signal.  Thus,  except  for  the  small  amount  of  east-north  mixing, 
there  is  no  effect  of  tilt  in  the  east  velocity  component,  to  first  order, 
if  the  probe  falls  along  its  length. 

2.  Processing  Changes 

The  present  XTVP  processing  computes  a  north  velocity  v  using 


V  =  -  [A(t.  -  (1+C,)iF  --  c  A6  l/(1+C.)iF  , 

’^n  2  y  ■»  c  1  z 


where  is  the  estimated  fall  rate  and  A(})  is  calculated  from  the  probe 
rotation  rate.  Using  (60),  (64)  and  (66)  with  u'  =  V  =  0,  the  coii5>uted 
velocity  will  be 


^  z  y 

v  =  (v  +  a  —  u)  +  ^ 


F  (1-k:  )  (1  +  C  ) 

flviv  -6  rTT^"’  • 


The  computed  north  velocity  contains  three  errors:  a  mixing  of  u  with 
V  due  to  east-west  tip  (a),  em  error  due  to  the  Incorrect  estimation  of 
W  ,  and  an  error  due  to  north-south  tilt  ($).  Since  W  =  450  cm/s  >>u, 
the  last  term  is  dominant.  A  north-south  tip  of  1*  will  lead  to  an  error 
of  4  cm/s. 

It  is  possible  to  correct  for  the  5  tilt.  Using  (60),  the  magnitude 
of  the  coll  signal  is 
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Me 


UJF  y^Q  f  ^  ji  0 )  * 


(74) 


The  effective  area  of  the  coil  is 


(75) 


which  to  first  order  in  a  and  0  is  a  function  only  of  the  north- south 
tilt.  The  third  term  in  (73)  can  be  estimated  using 


-$ 


(1  +  C^) 

(1  +  Cf) 


W 


1) 


(1  +  C2) 
(1  +  Cl) 


(76) 


and  removed  from  the  estimate  of  v  using 


^  =  -[A<t)n  -  (1  +  C2)FyWe 


-cA(|)c]/(1  +  Cl  )Fz  . 


(77) 


In  practice,  Aq  is  estimated  from  the  vertical  me^m  of  A,  since  the 
fluctuations  in  A  occur  on  a  relatively  short  vertical  scale. 

3.  Comparison  of  Tilt-Corrected  and  Uncorrected  Profiles 

Figure  24  shows  a  typical  XTVP  profile  of  east  and  north  velocity 
and  area  as  defined  by  (75).  Interpreting  the  area  fluctuations  as  tilt 
fluctuations,  the  probe  is  seen  to  tilt  only  a  few  degrees,  north-south. 
These  small  tilts  are  sufficient,  however,  to  significantly  affect  the 
computed  north  velocity.  Notice  the  difference  between  the  velocity 
computed  using  (72)  (light  line)  and  (77)  (heavy  line,  tilt  corrected). 
The  north  velocity  is  most  affected  on  the  10-50  m  scale,  where  the  area, 
or  tilt,  fluctuations  are  concentrated.  Note  that  the  corrected  profile 
shows  less  correlation  with  the  area  than  the  uncorrected  profile,  and 
that  the  tilt  correction  primarily  affects  the  amplitude,  not  the  phase, 
of  the  computed  profile. 

The  effect  of  the  tilt  correction  on  different  vertical  scales  is 
iiK>re  clearly  seen  in  Fig.  25.  The  average  autospectra  of  east  and  north 


APL-UW  8110 


71 


■MlliM 


UNIVERSITY  OF  WASHINGTON  •  APPLIED  PHYSICS  LABORATORY 


Figure  24. 


A  low  noise  XTVP  profile  (AUTEC  176)  of  east  and  north 
relative  velocity ^  and  effective  coil  area  (75).  North 
is  computed  both  by  (72)  (unoorreoted,  light  line)  and 
by  (77)  (correctedy  heavy  line).  Area  is  also  inter¬ 
preted  as  north-south  tilt. 


from  64  XTVP  profiles  are  shown  with  the  north  velocity  computed  using 
both  (72)  (light  line)  and  (77)  (heavy  line).  The  uncorrected  data  show 
more  energy  in  north  than  east  at  scales  smaller  than  300  m,  while  the 
tilt  corrected  data  show  the  same  energy  in  east  and  north. 
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VERTICAL  WAVE  NUMBER  (cpm) 

0.001  0.01  0.1 


Figure  25.  Average  autospeotra  from  64  XTVP  profiles  taken  during 
the  USNS  cruise.  Both  tilt-oorreoted  by  (77)  and 
unaorreatea  by  (72)  north  spectra  are  shown.  The  96% 
confidence  interval  was  computed  using  64  EDOF.  The 
wavenumber  bin  is  1/640  cpm. 


4.  Comparison  with  Other  Measurements 

The  differences  between  the  corrected  and  uncorrected  profiles 
occur  primarily  on  vertical  scales  where  Internal  wave  fluctuations  are 
dominant.  Current  meter  measurements  In  the  open  ocean  usually  show  an 
Isotropic  Internal  wave  field  with  the  same  amount  -if  energy  In  east  and 
north  (Wunsch,  1976).  The  corrected  XTVP  profiles,  which  show  equal 
I  energy  In  east  and  north,  agree  with  these  current  meter  data,  while 

;  I  the  uncorrected  data  profiles  do  not. 

i  ' 

f 

;  I, 
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Simultaneous  velocity  profiles  using  two  different  profilers  are 
an  excellent  test  of  both  Instruments.  Two  such  comparisons  are  dis¬ 
cussed  below,  an  XTVP  comparison  with  TOPS  (Hayes,  1981;  data  courtesy 
of  Dr.  S.  Hayes  NOAA/PHBL) ,  a  profiler  expected  to  be  most  accurate  at 
1-50  m  scales,  and  a  comparison  with  acoustically  tracked  floats 
(Wenstrand,  1979;  data  courtesy  of  Dr.  D.  Wenstrand  APL/JHU),  vdilch  axe 
expected  to  be  most  accurate  at  scales  greater  than  50  m. 

Figure  26  compares  the  data  obtained  from  nearly  simultaneous  drops 
of  an  XTVP  and  TOPS,  a  free-fall  velocity  profiler  that  measures  Its  own 
velocity,  relative  to  the  ocean,  using  a  nose  mounted  acoustic  current 
meter.  A  model  of  the  body  dynamics  Is  used  to  conqpute  the  large  scale 
velocity  profile  from  these  measurements.  Figure  26  compares  the  auto¬ 
spectra  frcxn  the  \incorrected  XTVP  data  and  TOPS.  The  east  spectra  are 


DBAR  DBAR 


Figure  26.  Autoepeatra  from  TOPS/XTVP  interaomparison.  XTVP  data  are 

not  tilt  oorreated.  (Figure  oourteey  Dr.  S.  Hayee^  NOAA/PMEL) 


r 
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quite  similar.  The  north  spectra,  however,  show  more  energy  in  the  XTVP 
profile  at  scales  smaller  than  100  m,  just  as  in  Fig.  25.  This  again 
suggests  that  the  XTVP  north  velocity  must  be  corrected  for  north-south 
tilt.  Figure  27  compares  the  TOPS  and  XTVP  profiles.  If  a  slowly 
increasing  depth  offset  in  one  of  the  profiles  is  recognized,  the  corre¬ 
spondence  between  the  two  profiles,  especially  on  a  feature  for  feature 
basis,  is  excellent,  even  with  the  uncorrected  XTVP  data. 

Figure  28  shows  a  comparison  between  simultaneous  XTVP  and  acousti¬ 
cally  tracked  dropsonde  data.  Sanford  et  al.  (1981)  discuss  this  inter¬ 
comparison  in  more  detail.  Figure  28  compares  a  typical  acoustic  pro¬ 
file  with  an  exceptionally  quiet  (for  this  data  set)  XTVP,  processed 
both  by  (72)  (uncorrected)  and  (77)  (corrected).  All  three  profiles 
have  zero  vertical  mean;  no  other  adjustments  have  been  made.  The  cor¬ 
respondence  between  the  acoustic  and  the  corrected  XTVP  profiles  is 
excellent.  The  uncorrected  XTVP  north  profile  fits  the  acoustic  profile 
much  less  accurately  than  the  corrected  profile. 


WEST  EAST  south  NORTH 

Figure  27.  Velocity  prof  ilea  from  TOPS /XTVP  interaompariaon. 
(Figure  courtesy  of  Dr.  S.  Hayes  NOAA/PMEL) 
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Figure  28.  Comparison  of  nearly  simultaneous  XTVP  (176)  and  acoustic  tracked 
float  (#7)  velocity  profiles.  Both  tilt-corrected  by  (77)  and 
uncorrected  (72)  north  XTVP  profiles  are  shown.  All  profiles  have 
zero  vertical  mean;  otherwise  not  adjusted. 


5.  XTVP  Error  Analysis 

The  results  of  the  acoustic  dropsonde/XTVP  intercomparison  will  be 
used  to  estimate  the  errors  in  the  XTVP  measurement.  Each  intercompar¬ 
ison  set  consists  of  an  acoustic  up  and  down  profile,  and  several  XTVP 
profiles  taken  during  the  acoustic  profile.  Three  intercomparison  sets 
are  used  below.  In  addition,  simultaneous  acoustic  profiles  using  two 
different  floats  were  taken. 

Table  14  lists  the  rms  differences  between  the  various  profiles 
averaged  over  all  intercomparisons.  Each  profile  is  divided  into  two, 
100-m  sections  (150-250  m,  250-350  m)  emd  each  pair  of  profiles  is 
shifted  vertically  up  to  +8  m  so  that  a  maximum  correlation  occurs. 

This  allows  for  some  depth  error  in  the  XTVP. 


y 
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Table  14.  The  rms  difference  between  adjusted  profiles  (am/s). 


Simultaneous  acoustic  profiles^ 

East 

North 

0.77 

0.61 

2 

Acoustic  up/down  pairs 

1.23 

1.48 

Tilt  Corrected  Uncorrected 
_ North _  North _ 


XTVP  nearly  simultaneous"^ 

1.33 

1.65 

1.73 

4 

XTVP  pairs  within  intercomparison 

1.33 

1.55 

1.78 

XTVP/acoustic  pairs^ 

1.19 

1.38 

2.06 

AUTEC  profiles  8  and  9,  10  and  11,  dovm  profiles  only. 

Time  differences  less  than  5  minutes. 

^  AUTEC  profiles  8,  9,  10,  11. 

^  All  next  neighbor  pairs  in  sets  (160-163),  (165-169). 

Time  differences  less  than  10  minutes. 

All  pairs  in  sets  (160-163),  (165-169),  (176,  179) 

^  All  XTVP/acoustic  pairs  in  sets  (#4,  160-163),  (#5,  165-169), 

(#7,  176,  179),  where  #4,  #5,  and  #7  are  AUTEC  acoustic  profiles. 


For  either  acoustic  velocity  component  A,  let 

A  =  O^  +  ,  (78) 


where  O^^  is  the  oceanic  velocity  field  measured  by  a  noiseless  acoustic 
profiler  and  is  a  random  error.  From  simultaneous  profiles,  can 
be  estimated  with 


:  ( 


(79) 


I  i 


I 


! 

t 
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Using  the  statistics  shown  in  Table  14,  =  0*6  to  0.7  cm/s.  The  dif¬ 

ference  between  the  up  and  down  acoustic  profiles  can  be  used  to  esti¬ 
mate  the  change  in  the  oceanic  velocity  field  during  the  profile: 


(O 


AU 


2  2 

-  0.,^>  + 

AD  A 


(80) 


A  value  of  0.5  cm/s  is  estimated. 

Similarly,  if  either  XTVP  velocity  component  is  given  by 


X  =  Ojj  +  Cjj  , 


(81) 


simultaneous  XTVP  profiles  can  be  used  to  estimate 


(X 


i 


(82) 


and  the  entire  set  of  XTVP  intercomparison  profiles  gives  an  estimate  of 
the  oceanic  change  during  the  experiment: 


(X 


1 


2  2 


(83) 


Sufficient  XTVP  profiles  simultaneous  with  the  acoustic  drops  do 
not  exist.  The  acoustic  and  XTVP  error  estimates  have  thus  been  made 
using  data  taken  at  different  times  on  the  same  day.  Table  14  shows  no 
significant  difference  between  the  XTVP  rms  errors  confuted  for  nearly 
simultaneous  profiles  as  in  (82)  or  using  all  the  profiles  in  each 
Intercomparison  set. 


I 


(0, 
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will  thus  be  taken  as  zero.  Some  oceanic  change  Is  certainly  present, 
but  for  the  small  number  of  profiles  used  here,  it  cannot  be  resolved. 

Systematic  differences  may  exist  between  the  acoustic  emd  XTVP 
velocity  profiles.  These  can  be  confuted  from  the  XTVP/acoustic 
statistics: 


(X  -  A) 


2 


(84) 


Assuming  that  there  is  no  temporal  change  in  the  ocean  during  the 
intercomparison,  an  upper  limit  for 


(Ox  -  O;,) 


V, 


2  '1 


of  0.5  cm/s  for  the  east  or  tilt  corrected  north  is  computed.  Notice 
that  the  uncorrected  north  velocity  shows  a  much  larger  systematic  error 
of  1.6  cm/s.  If  some  oceanic  change  is  allowed,  the  calculated 
systematic  error  becomes  smaller. 

The  XTVP  errors  are  summarized  in  Table  15.  The  systematic  veloc¬ 
ity  errors  are  significantly  less  them  1  cm/s,  and  the  random  velocity 
errors  are  about  1  cm/s.  The  XTVP's  used  in  this  intercomparison  were 
early  models,  and  showed  a  considerably  higher  noise  level  than  more 
recently  manufactured  probes.  The  value  of  computed  here  certainly 
overestimates  the  random  noise  in  more  recent  probes,  probably  by  a 
factor  of  2  or  more. 

6.  Conclusions 


The  2d)ove  emalysis  clearly  shows  the  significance  of  small  north- 
south  tilts  in  affecting  the  measured  XTVP  north  velocities.  The  veloc¬ 
ity  errors  due  to  these  tilts  can  be  removed  if  the  XTVP  is  assumed  to 
fall  along  its  length  when  tilted.  An  emalysls  of  the  AUTEC  XTVP  inter¬ 
comparison  with  acoustically  tracked  floats  shows  that  the  tilt  errors 
can  be  removed  and  an  accurate  velocity  profile  constructed. 

This  analysis  reveals  systematic  differences  of  approximately 
0.5  cm/s  rms  between  the  acoustic  and  XTVP  profiles.  The  XTVP 
random  error  is  estimated  at  1  cm/s  rms  for  this  set  of  probes. 

The  more  recently  manufactured  probes  have  less  random  error. 
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Table  15.  Error  analysis  results  (am/s). 


Acoustic  random  error  e 


Acoustically  measured  oceanic 

change  during  up/dovm  profiles 

- 2% 

'Oau  -  Oad' 


XTVP  random  error  ex 


XTVP/acoustic  systematic  error 


:V, 


2  '2 

(Ox  ~  Oj^)  upper  bound 


East  Worth 

0.54  0.43 

0.45  0.47 

Worth  Worth 

East  Tilt  Corrected  Uncorrected 

0.94  1.1  1.25 

0.49  0.51  1.58 


D.  Surface  Wave  Interference 


{> 


'(K 


Surface  waves  produce  strong  surface  enhanced  velocities  and  elec¬ 
tric  currents.  Typical  particle  velocities  are  about  100  cm/s,  a  large 
value  compared  with  typical  low  frequency  flows.  Moreover,  since  the 
frequency  is  large,  about  1  s”\  the  probe  will  see  a  time  varying 
signal  as  it  falls.  The  wave  signal  will  appear  as  a  vertical  shear 
of  wavelength  equal  to  the  probe's  fall  speed  times  the  wave  period. 

For  a  6  s  wave  2md  a  4.5  m/s  fall  rate,  the  wavelength  is  27  m. 

The  vertical  attenuation  of  a  surface  wave  depends  on  its  horizon¬ 
tal  wavenumber  (k)  which  is  u)^/g,  where  u)  is  its  frequency  and  g  is 
gravity.  For  a  6  s  period  wave  the  wavelength  is  cdx7ut  60  m.  The  ve¬ 
locity  decreases  as  e^^,  which  is  or  0.002  at  z  =  -60  m.  Thus, 

caution  must  be  exercised  in  the  interpretation  of  velocity  shear  in 
the  upper  50  m  under  typical  ocean  surface  wave  conditions. 

E.  Sensitivity  Analysis 

The  rms  error  of  the  velocity  estimates  U*  and  V  is  determined 
numerically  using  randomly  determined  probe  tilts  a  2md  probe  gains 
and  probe  component  values.  The  digital  receiver  outputs  I  and  Q  are 
generated  given  U  and  V  using  deviated  gains.  U'  and  V  are  then  esti¬ 
mated  from  I  and  Q  using  nominal  gains  and  component  values. 

The  square  root  of  the  average  variance  of  the  velocity  errors  for 
25  U  and  V  combinations  is  found  for  20  pseudoprobes.  This  is  listed  in 
Table  16  as  the  U  and  V  rms  error. 
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Table  16. 


U,  V  rms 

error  as  a 

function  of  gain  tolerances 

U,v 

a,0 

Probe 

Probe 

V/F 

u,v 

velocity 

tilt 

gain 

phase 

converter 

rms 

range 

range 

tolerances  tolerances 

tolerances 

error 

( +cm/s ) 

(+•) 

(+•) 

{+•) 

{+•) 

(cm/s) 

20 

1 

0 

0 

0 

0.3 

20 

1 

1 

1 

1 

0.4 

40 

0 

0 

0 

0 

40 

2 

0 

0 

0 

1.0 

40 

2 

1 

1 

1 

1.1 

U,V  rms  error  as  a  function  of  component  tolerances 


u,v 

velocity 

a,B 

tilt 

Resistor 

Resistor 

V/F 

converter 

u,v 

rms 

range 

range 

tolerances 

tolerances 

tolerances 

error 

(+cm/s) 

(+•) 

{+%) 

(+%) 

(+») 

(cm/s) 

20 

1 

0.1 

10 

1 

0.3 

20 

1 

1 

10 

1 

0.4 

20 

1 

1 

10 

5 

in 

• 

o 

40 

2 

0.1 

10 

1 

1.1 

40 

2 

1 

10 

1 

1.1 

40 

2 

1 

10 

5 

1.3 

40 

2 

1 

10 

10 

2.0 

40 

2 

5 

20 

10 

2. 1 

Typical  ranges  of  U,  V  zmd  tilt  were  used.  The  rms  error  scales 
linearly  with  U/V  ranges  and  also  Increases  with  tilt.  As  the  velocity 
range  Increases  one  would  expect  larger  tilts  and  thus  a  more  than  propor 
tlonal  Increase  In  error.  Even  with  a  perfectly  known  probe  calibration, 
one  should  expect  a  1.1  cm/s  rms  error  over  +40  cm/s  range  with  +2*  tilts 

Present  resistor  tolerances  are  0.1%,  but  1%  would  be  sufficient 
(except  for  common  mode  rejection).  The  voltage  to  frequency  (V/F) 
converters  should  be  within  5%  for  less  than  1.5  cm/s  rms  error. 
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APPENDIX  A 

Program  Listings  and  Sampla  Runs 


Listing  of  Program  DXGET 


DXGET  accepts  data  from  the  X7VP  receiver  via  the  16-bit  parallel 
I/O  Ceord  (HP  98032A) .  One  single  HP  9845  ENTER  statement  is  vised  with  an 
integer  array  of  28800  words.  We  use  DMA  and  NOFORMAT  to  ensure  that  no 
data  are  lost.  The  XTVP  receiver  outputs  eure  two's  complement  16-bit 
binary  integers  to  match  the  HP  9845  integer  word  format.  The  keyboard 
is  locked  out  during  the  ENTER  to  prevent  loss  of  data. 

After  the  HP  9845  data  array  is  full,  the  array  is  written  onto 
magnetic  storage  media  for  later  processing  by  DXPRO.  We  elected  not  to 
collect  and  process  simultaneously,  for  data  integrity  reasons  auid  be¬ 
cause  the  acqviisition  only  teUces  5  minutes.  A  more  complicated  program 
would  be  more  prone  to  failure  during  data  acquisition. 


10  ProgreM*="DXGETG‘' 

20  !  DXGET  ..  JPlH  16  80.  GET  DIGITAL  RCVR  XTVP  DATA. 

30  !  DXGETG  ..  SEPT  16  80.  OPERATOR  INPUTS  THE  NUMBER  OF  SCANS  TO  READ. 

40  ! 

50  OPTION  BASE  1 

60  SERIAL 

80  ! 

90  PRINT 

100  PRINT  Progrev*;';  TAKES  XTVP  DATA  FROM  THE  DIGITAL  RECEIVER  FOR  THE  SPECIF 
lED" 

110  PRINT  "NUMBER  OF  DATA  CYCLES.  A  DATA  CYCLE  IS  ONE  REPET  I  ON  OF  EACH  OF  " 
120  PRINT  "THE  TEN  VARIABLES." 

130  ! 

140  PRINT  "THE  USER  CAN  ENTER  THE  NUMBER  OF  DATA  CYCLES  WISHED  OR  CAN  LEAVE" 

150  PRINT  "THAT  PARAMETER  <Ncyc>  AT  IT'S  DEFAULT" 

160  ! 

170  PRINT  "THERE  IS  ONE  DATA  CYCLE  PER  XTVP  REVOLUTION.  " 

180  ! 

190  PRINT  "FOR  REAL  TIME  DATA  USE  NCYC=2880  TO  ALLOW  FOR  PRE-DROP  TIME" 

200  PRINT  "FOR  PLAYBACK  USE  NCYC=1800  IF  COMPUTER  IS  STARTED  A  FEW  SECONDS  PR 

lOR  TO  DROP" 

210  PRINT  LIN<n 

220  ! 

230  Ncyc=2880 

240  DISP  "ENTER  THE  NO.  DATA  CYCLES  TO  TAKE  FROM  THE  DIG  RCVR.  THE  DEFAULT  I 
S" ; Ncyc ; 

250  INPUT  "",Ncyc 

260  Nword=Ncyc*10 

270  PRINT  "THE  NUMBER  OF  DATA  CYCLES  WILL  BE  ";Ncyc;"  FOR  THIS  RUN" 

271  PRINT  "THIS  WILL  TAKE  ";Ncvc^8;"  SECONDS  AT  8  HZ  ROTATION  FREQ." 

290  ! 

300  INTEGER  Din<:32000) 

I  310  Nword=Ncyc*10 

‘  320  REDIM  Din<Nword) 

330  DIM  Comment*! 160] 

(  340  ! 

!  350  DISP  "PUSH  COST  TO  START  RECORDING  FROM  DIGITAL  RECEIVER" 

360  BEEP 

,  370  PAUSE 
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380 

390 

400 

410 

420 

430 

440 

450 

480 

470 

480 

490 

500 

501 

502 

503 

504 
510 
520 
530 
540 
550 
560 
570 


580 


590 

600 


610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

731 
740 
750 


OUTPUT  9;"R"  !  GET  REAL  TIME 

ENTER  9; Comment# 

I 

DISP  Comment#;”  GETTING  DATA  FROM  DIGITAL  RECEIVER  NOW.  “ 

SYSTEM  TIMEOUT  OFF 

SUSPEND  INTERACTIVE 

ENTER  11  WDMA  Nword  NOFORMAT; Di n<*> 

RESUME  INTERACTIVE 
SYSTEM  TIMEOUT  ON 
BEEP 

STORE  JUST-READ-IN  DATA 

EDIT  "OUTPUT  FILE  NAME  ?",Fne# 

ASSIGN  #2  TO  Fi le#,Ret 
IF  Ret<>0  THEN  510 

DISP  "FILE  NAME  ";File#;"  EXISTS.  USE  ANOTHER  FILE  NAME.  "; 

GOTO  500 

! 

IF  LENCFne#)=0  THEN  480 

! 

EDIT  "COMMENTS  ’“.Comment# 

! 

ASSIGN  #2  TO  Fi 1e#,Ret 
IF  RetOl  THEN  500 
GOTO  640 

! 

DISP  ERRM#;"  WHILE  CREATING  ";File*;".  PUSH  CONT  USING  ANOTHER  DISC" 

PAUSE 

GOTO  500 

! 

ON  ERROR  GOTO  600 
CREATE  Fne#,Nword*4^256+5 
OFF  ERROR 

! 

ASSIGN  #2  TO  File# 

READ  »2, 1 

PRINT  #2; Comment# 

PRINT  #2;Din<*) 

ASSIGN  #2  TO  ♦ 

! 

DISP  Progrey#;"  FINISHED" 

BEEP 

END 


A2 


APL-UW  8110 


1 


Program  PADOC,  Sample  Run 


PADOC  is  a  program  that  confutes  the  magnetic  field  conponents 
needed  for  data  processing  by  DXPRD.  The  operator  enters  the  date  and 
position,  and  the  program  evaluates  a  spherical  polynomial  model.  The 
program  was  modified  by  Jagit  Hayre  to  run  on  the  HP  9845  in  BT^ZC. 

The  original  FORTRAN  program  was  purchased  from  NOAA  EDIS/NGSDC  (D62) , 
325  Broadway,  Boulder,  Colorado  80303,  (303)  497-6478.  The  model  cur¬ 
rently  used  is  USWC75,  but  more  refined  models  will  soon  be  available. 

The  following  page  shows  operator  input  zuid  program  output  for 
40®30'N  and  150“55'W  on  30  March  1981.  The  results  for  horizontal  and 
vertical  intensity  in  Gauss  (10"^  tesla)  are  0.2408963  and  -0.3883425. 
Note  that  the  vertical  intensity  is  taken  to  be  <0  in  the  northern 
hemisphere.  This  is  the  opposite  of  some  conventions. 


PADDOCK  02. 
<JUL  'SO) 


.CALCULATION  OF  THE  EARTH'S  riAGNETIC  HORIZONTAL 
AND  VERTICAL  INTENSITY  FOR  A  GIVEN  DATE  AND 
POSITION . 


ARE  THE  GEODETIC  OR  GEOCENTRIC  VALUES  DESIRED  FOR  A  GIVEN  POSITION'' 
<  GEODET I C/GEOCENTR I C  > 

GEODETIC 

GEODETIC  VALUES  HILL  EE  CALCULATED  FOR  A  GIVEN  DATE  AND  POSITION 
IS  A  LIST  OF  THE  AVAILABLE  MODELS  DESIRED?  <VES/N0> 

YES 

THERE  ARE  PRESENT  1  MODELS  WHOSE  NAMES  ARE: 

1  USWC75 

MODEL  1  CUSWCFS)  IS  THE  ONLY  AVAILABLE  MODEL -  USED  BY  DEFAULT 

INPUT  DATE:  DAY,  MONTH,  YEAR 
30,3,81 

GIVEN  DATE;  30.--  S'-  1981 

WILL  THE  GIVEN  POSITION'S  LATITUDE  BE  NORTH  OR  SOUTH?  CN/S^ 

N 

WILL  THE  GIVEN  POSITION'S  LONGITUDE  EE  EAST  OR  WEST?  CE'W) 

W 


POSITION  HORIZONTAL 

LATITUDE  LONGITUDE  INTENSITY 

DEG  MIN  N  DEG  MIN  W  <GAUSS> 

INPUT  POSITION:  LATITUDE  <DEG,MIN), 

40,30, 150,55 

40  30.00  150  55.00  .2408963 

INPUT  POSITION:  LATITUDE  <DEG,MIN>, 


VERTICAL 
INTENSITY 
< GAUSS) 

LONGITUDE  <DEG,MIN) 
-.3883425 

LONGITUDE  (DEG, MIN) 
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Listing  of  Program  PADOC 


10 

20 

30 

35 

3e 

41 

42 

43 


44 

50 

60 

70 

80 


90 

100 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

NTflL 

240 

D" 

250 

260 

270 


************************** ***************^*******^***********i^*******^*** 

PROGRAM  PAIiDOCK--  CALCULATION  OF  THE  EARTH'S  MAGNETIC  HORIZONTAL 

AND  VERTICAL  INTENSITY  FOR  A  GIVEN  DATE  AND  POSITION 
USING  VARIOUS  MODELS  STORED  IN  DATA  STATEMENTS 

I 

!  This  program  is  a  modification  of  a  FORTRAN  program  of  spherical 
!  harmonic  models  for  the  earth's  magnetic  field,  model  AWC75, 

!  from  U.S.  Dept,  of  Commerce,  NOAA,  NGSDC  <D62>,  Environmental  Data 
!  Service,  Doulder,  Colorado,  80302. 


I 


I 


INPUT  REQUIRED  FOR  THIS  PROGRAM  IS: 

1>  ARE  THE  GEODETIC  OR  GEOCENTRIC  VALUES  TO  EE  CALCULATED  FOR  THE 
GIVEN  DATE  AND  POSITION? 

2)  IS  A  LIST  OF  THE  AVAILABLE  MODELS  DESIRED? 

3.-)  IF  THE  #  OF  AVAILABLE  MODELSO0  THEN  ENTER  THE  MODEL  #  OF  THE 
DESIRED  MODEL  TO  BE  USED  FOR  THE  CALCULATION 
4>  ENTER  THE  DATE:  DAY,  MONTH,  YEAR, 

5>  WILL  THE  GIVEN  POSITION'S  LATITUDE  BE  NORTH  OR  SOUTH'' 

6>  WILL  THE  GIVEN  POSITION'S  LONGITUDE  BE  EAST  OR  WEST? 

7>  ENTER  POSITION:  DEG  MIN  (LAT>  DEG  MIN  <LONG> 

****  PROGRAM  OUTPUTS  MAGNETIC  INTENSITIES  IN  GAUSS 
8)  REPEAT  STEP  <7)  AS  DESIRED... 


!  PADDOCK  01 .  ORIGINAL  FORTRAN  PROGRAM 

!  PADDOCK  02 .  FORTRAN  PROGRAM  CONVERTED  TO  RUN  ON  THE  HP  9845B 

!  BY  J.  HAYRE  ,  JULY  1980 

PRINT  "PADDOCK  02 . CALCULATION  OF  THE  EARTH'S  MAGNETIC  HORIZO 

PRINT  "  <JUL  '80)  AND  VERTICAL  INTENSITY  FOR  A  GIVEN  DATE  AN 

PRINT  "  POSITION . " 

PRINT  LINO) 

!  ****«****»*««#****«*#■*#■»*#*#•*#*•#»#***#***#*•«***■*■**•*■*********#**•■*■»*■*•*■*■*  ■!-■*■* 
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310 

! 

320 

!  C 

330 

!  C 

340 

!  C 

350 

!  C 

360 

!  C 

370 

!  C 

380 

!  C 

390 

!  C 

400 

!  C 

410 

!  C 

420 

!  C 

430 

!  C 

440 

!  C 

450 

!  C 

460 

!  C 

470 

j 

480 

!  C 

490 

!  C 

500 

!  C 

510 

!  C 

520 

!  C 

530 

1  c 

540 

!  C 

550 

KM 

!  C 

560 

1 

NGDX 

Y2 

570 

!  C 

580 

!  C 

590 

!  C 

600 

610 

620 

630 

) 

!  C 

640 

!  C 

650 

!  C 

660 

!  C 

670 

!  C 

680 

!  C 

690 

!  C 

700 

!  C 

710 

I 

720 

j 

730 

I 

740 

750 

! 

SIT  I  ON? 
760 

770 

780 

790 

THIS  PROGRRM  DEMONSTRATES  THE  USE  OF  FUNCTIONS  NGDX.YZ  AND  NGCXY2 
TO  COMPUTE  VALUES  OF  THE  GEOMAGNETIC  ELEMENTS,  AS  DEFINED  BY  A 
SPECIFIED  MODEL  OF  SPHERICAL  HARMONIC  COEFFICIENTS,  FOR  A  GIVEN 
TIME  AND  FOR  A  GIVEN  GEODETIC  OR  GEOCENTRIC  POSITION. 

THE  SHC  S  OF  THE  AVAILABLE  MODELS  ARE  CONTAINED  IN  DATA 
STATEMENTS  IN  FUNCTION  NGDXY2. 

SAMPLE  CALLS 

N  =  NGDXYZC  YEAR,  GDLAT,  ELONG,  GDALT,  MODEL,  ENTRY  > 


YEAR . THE  DATE  IN  YEARS 

GDLAT . GEODETIC  NORTH  LATITUDE,  IN  DEGREES 

ELONG . EAST  LONGITUDE,  IN  DEGREES 

GDALT . ALTITUDE  ABOVE  THE  GEOID,  IN  KILOMETERS 

MODEL . ORDINAL  OF  MODEL  "rHAT  IS  TO  BE  USED 

ENTRY . =0  FOR  SIMPLE  CALw  TO  NGDXY2  <  NO  ENTRY  FT  > 


WHEN  THE  ABOVE  ENTRY  IS  USED,  ALL  VALUES  ARE  REFERENCED  TO  THE 
INTERNATIONAL  ELLIPSOID  OF  1961.  THIS  IS  THE  ENTRY  THAT  WOULD 
NORMALLY  BE  USED. 

N  =  NGDXYZC  YEAR,  GCLAT,  ELONG,  GCALT,  MODEL,  ENTRY  ':> 

GCLAT . GEOCENTRIC  NORTH  LATITUDE,  IN  DEGREES 

GCALT . ALTITUDE  ABOVE  THE  SPHERE  OF  RADIUS  6321. 2KM,  IN 

ENTRY . =1  FOR  CALL  TO  ENTRY  POINT  NGCXYZ  IN  FUNCTION 


WHEN  THE  ABOVE  ENTRY  IS  USED,  ALL  VALUES  ARE  REFERENCED  TO  THE 
SPHERICAL  EARTH  WHOSE  RADIUS  IS  6371.2KH. 


RAD 

OPTION  BASE  1 

COM  X,  Y,  2,  Xdot ,  Ydot ,  2dot. ,  Mode  1  s,  Nanie  $  20) ,  Xnin  C  900>  ,  Ymn  <■.  900 ) ,  Zmn  C  900 


FUNCTION  HGDXY2  RETURNS  THE  MAGNETIC  ELEMENTS  XC NORTHWARD 

INTENSITY),  Y< EASTWARD  INTENSITY),  AND  2 C DOWNWARD  INTENSITY), 

AND  THEIR  ANNUAL  RATES,  VIA  COMMON  .  THE  UNITS  ARE 

GAMMAS  C NANOTESLAS)  AND  GAMMAS- YEAR  < NANOTESLAS-'YEAR  )  .  THESE 

VALUES  APPLY  TO  THE  DATE  AND  POSITION  USED  IN  THE  CALL 

STATEMENT. 


DETERMINE  IF  GEODETIC  OR  GEOCENTRIC  VALUES  ARE  DESIRED 

INPUT  "ARE  THE  GEODETIC  OR  GEOCENTRIC  VALUES  DESIRED  FOR  A  GIVEN  PO 
<GEODETIC/GEOCEHTRIC)",Gcotype$ 

IF  <G€Otyp6-$="GE0CENTRIC")  OR  < Geot ype*  = " GEODET I C " )  THEN  SSO 
BEEP 

DISP  "MISSPELLED  DESIRED  TYPE - ",  Geotype* 

GOTO  750 
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AS 


A0-A115  659  HASHXN6T0N  UNIV  SEATTLE  APPLIED  PHYSICS  LAB  F/6  S/3 

DESX6N*  OPERATION  AND  PERFORMANCE  OF  AN  EXPENDABLE  TEMPERATURE  — ETC(U) 
MAY  S2  T  B  SANFOROf  R  6  DREVER*  J  H  DUNLAP  N0001A-80-C-0M7 
UNCLASSIFIED  APL-UH-6110  NL 


see  !  c 

8ie  !  C  FIRST  UE  MAKE  ft  DUMMY  CALL  TO  NGDKYZ.  THIS  FIRST  CALL  WILL  SIMPLY 

S20  !  C  READ  THE  SHC  MODEL  HEADER  CARDS,  PLACE  IN  MODELS  THE  NUMBER  OF  SHC 

830  !  C  MODELS,  AND  PLACE  IN  NAMES  THE  INDIVIDUAL  MODEL  NAMES.  THIS  DUMMY 

840  !  C  CALL  IS  NORMALLY  UNNECESSARY,  IT  IS  NEEDED  HERE  ONLY  BECAUSE  WE  WIS 

H 

850  !  C  TO  PRINT  THE  NUMBER  OF  MODELS 'AND  THEIR  NAMES  BEFORE  MAKING  AN  ACTU 

AL 

860  !  C  CALL  TO  NGDXY2. 

870  !  C 

880  PRINT  USING  " K " ; Geot ype# , "  VALUES  WILL  BE  CALCULATED  FOR  A  GIVEN  DA 

TE  AND  POSITION" 

890  N=FNNgdxyz<1999,0,0,0,0,0> 

800  INPUT  "IS  A  LIST  OF  THE  AVAILABLE  MODELS  DESIRED?  ■;  YES-  NO  >  "  ,  Respcns 

e$ 

910  IF  Response*="NO"  THEN  990 

920  ! 

930  !  OUTPUT  THE  LIST  OF  AVAILABLE  MODELS 

940  ! 

950  PRINT  USING  "/3<K> "; "THERE  ARE  PRESENT  ".Models,"  MODELS  WHOSE  NAME 

s  are:  " 

960  FOR  1=1  TO  Models 

970  PRINT  USING  " 1 X , DD , 2X , K- " ; I , Name#< I >  !  OUTPUT  AVAILABLE  MODEL  NAM 

ES 

980  NEXT  I 

990  Model=l 

1000  IF  Model  sOl  THEN  1060 

1010  PRINT  USING  "K"; "MODEL  1  < " , Name# ( 1 > , " >  IS  THE  ONLY  AVAILABLE  MODEL 

-  USED  BY  DEFAULT" 

1020  GOTO  1110 

1030  ! 

1040  !  INPUT  THE  DESIRED  MODEL  NUMBER 

1050  ! 

1060  INPUT  "ENTER  THE  NUMBER  OF  THE  DESIRED  MODEL", Model 

1070  IF  (Model >=1)  OR  < Mode  1 < =Mode 1 s >  THEN  1110 

10S0  BEEP 

1090  DISP  "MODEL  NUMBER  ".Model, "OUT  OF  RANGE  -  MAX  MODEL  HUMBER  IS  " 

,  Mode  1  s 

1100  GOTO  1060 

1110  IF  Models>l  THEN  PRINT  USING  " y3<K> "MODEL  ".Model,"  (", Name# ( Mode 

1),">  IS  BEING  USED  FOR  THIS  RUN" 

1120  Rod=. 017453293  !  RAD^DEGREE  CONVERSION  FACTOR 

1130  Rod=Rod+SIN< 180. 0*Rod>x 180.0 

1140  Rod=Rod+SIN< 180. 0*Rod)x 180.0 

1150  Rom2=2#Rod/'60. 0 

1160  ! 

1170  !  C 
1180  !  C 

1190  !  C  READ  IN  THE  DATE  AND  POSITION  DIRECTION 

1200  ! 

1210  INPUT  "INPUT  DATE:  DAY,  MONTH,  YEAR" , Day , Month, Year 

1211  IF  Year<1900  THEN  Year=Year+1900 


1220  Date  =  Year+Month/12+Day''365 

1230  PRINT  USING  " /K , 2 < DD, K  )  , DDDD" ; "GI VEN  DATE:  ",Day,"x 


" ,  Ye 


Mont  h 


1240 
, Di rns$ 
1250 
1260 
1270 
1280 
1290 
Di rew$ 
1300 
1310 
1320 
1330 
1340  ! 
1350  ! 
1360  ! 
1370 
1380 
1390 
1400 


INPUT  "WILL  THE  GIVEN  POSITION'S  LATITUDE  BE  NORTH  OR  SOUTH?  <N/S>" 

IF  <Lirns»="N")  OR  <Dirns**"S“)  THEN  1290 
BEEP 

DISP  "DIRECTION  MUST  BE  N  OR  S - ".Dims*,"  IS  ILLEGAL  " 

GOTO  1240 

INPUT  "WILL  THE  GIVEN  POSITION'S  LONGITUDE  BE  EAST  OR  WEST?  (E'W)", 

IF  (;Direw*="E")  OR  <Direw*="W")  THEN  1370 
BEEP 

DISP  "DIRECTION  MUST  EE  E  OR  W  -  ",Dir6w*,"  IS  ILLEGAL  " 

GOTO  1290 

PRINT  TABLE  HEADINGS 
PRINT  LIN<2) 

PRINT  "  POSITION  HORIZONTAL  VERTICAL" 

PRINT  "  LATITUDE  LONGITUDE  INTENSITY  INTENSITY" 

PRINT  USING  "2<K, 1A>,K^"; "DEG  MIN  ",Dirns*,"  DEG  MIN  "jDireu#, " 
<GAUSS>  (GAUSS)" 


READ  IN  THE  POSITION  (ACTUAL  LOOPING  OCCURS  HERE) 


1440  Input:  INPUT  "INPUT  POSITION:  LATITUDE  (DEG, MIN), 

N)",A1atdeg,A1atmin,E1ondeg,Elonmin 
1450  Alat=Alatdeg+Alatrtiin/60.0 

1460  E 1  on=E1  ondeg+E  1  onmi  ri/'60. 0 

1470  IF  Dirn£$="S"  THEN  Alat=-Alat 

1480  IF  Direw*="W"  THEN  Elon*-E1on 

1490  Alt=0 

1500  IF  Geoti,'pe$="GEOCENTRIC"  THEN  1640 

1510  ! 

1520  !  C  OBTAIN  VALUES  FOR  THE  GIVEN  DATE  AT  THE  GIVEN  GEODETIC  POSITION. 

1530  !  C 
1540  ! 

1550  N=FNNgdxyz(Date,Alat,Elon,A1t,Model,0) 

1560  ! 

1570  !  C  WE  NOW  HAVE  VALUES  AND  RATES  FOR  MAGNETIC  ELEI 

1580  !  C  VALUES  FOR  THE  OTHER  GEOMAGNETIC  ELEMENTS,  IF 

1590  !  C  COMPUTED. 

1600  !  C 

1610  !  C 

1620  !  C  HORIZONTAL  INTENSITY 

1630  !  C 

1640  H  =  SQR(X''2  +  Y''2) 

1650  Hdot  =  (SQR((X+Xdot  )''2+(Y+Ydot.  )''2)-SQR(  (X-Xdot ) 

1660  !  C  HDOT  =  (X*XDOT  +  Y*YDOT)/'H  H  GT  1000GAMMAS 

1670  !  C 

1680  !  C  TOTAL  INTENSITY 

1690  !  C 

1700  F  =  SQR(X''2+Y''2+2''2) 

1710  !  C  F  =  SQR(  H*»2  +  Z**2  ) 

1720  Fdot-(SGR((X+Xdot  )'2+(Y+Ydot  )''2+(2  +  2dot )  -Z  j-S 


LONGITUDE  (DEG, MI 


N=FNNgdxYZ(Date,Alat,Elon,A1t,Model,0) 

WE  NOW  HAVE  VALUES  AND  RATES  FOR  MAGNETIC  ELEMENTS  X,  Y,  AND  Z. 
VALUES  FOR  THE  OTHER  GEOMAGNETIC  ELEMENTS,  IF  NEEDED,  MUST  BE 
COMPUTED. 


HORIZONTAL  INTENSITY 
H  =  SQR(X''2  +  Y''2) 

Hdot  =  (SQR((X+Xdot  )''2+(  Y+Ydot  )''2)-SQR(  (X-Xdot  )^2+(  Y-Ydot  )  ^2)  ) '2 
HDOT  =  (X*XDOT  +  Y*YDOT)/'H  H  GT  1000GAMMAS 

TOTAL  INTENSITY 


1700  F  =  SQR(X''2+Y''2+2''2) 

1710  !  C  F  =  SQR(  H*»2  +  Z**2  ) 

1720  Fdot«(SGR(  (X+Xdot  )'  2+(Y+Ydot  )''2+(2  +  2dot )  ''2  )-SQR(  (X-Xdot  )^2+(  Y-  Ydot  > 

''2+(Z-Zdot  )-'2)  )/2 

1730  !  C  FDOT  »  (X*XDOT  +  Y*YDOT  ♦  Z*2D0T)/F  OR 

1740  !  C  FDOT  «  (H*HDOT  +  Z*ZDOT)xF  F  GT  1000GAMMAS 
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1750  ! 
1760  ! 
1770  ! 
1780 
1790 
1800  ! 
1810  ! 
1820  • 
1830 
1840 
1850  ! 
1860  ! 
1870  ! 
1880 
1890  ! 
1900  ! 
1910  ! 
1920  ! 
1930 
1940  M9 
1950 
I960 
1970 
,  El  o ri d e 
1980 
1990 
2000  ! 
2010  ! 
-2^20 
2030 
2040 
2050  ! 
2060  ! 
2070  ! 
2080  ! 
2090  ! 
2100  ! 
2110  ! 
2120  ! 
2130  ! 
2140  > 
2150  ! 
2160  I 
2170  ! 
2180  ! 
2190  ! 
2200  ! 
2210  I 
2220  • 
2230  ! 
2240  ! 
2250  < 
2260  ! 
CURRED. 
2270  ! 
2280  ! 
2290  ! 
2300  ! 


C 

C  DECLINRTION 

C 

D=FNfltan2<Y,X)-^Rod 

Ddot  =  ';FNRtan2CY+Ydot ,  K+Vdot  >-FNfltan2<  Y-Ydot ,  X-Xdot  >  >^Rom2 
C 

C  INCLINRTION 

C 

Dip=FNRtart2(2,H)''Rod 

Iiipdot  =  <FHRtari2<2  +  2dot,  H+Hdot  )-FNfltari2';Z-2dot,H-Hdot)>/Rom2 
C 
C 
C 

IF  Geotype$="GEODETIC"  THEM  M9 
C 
C 

C  OETflIH  GEOCENTRIC  VRLUES  FOR  THE  GIVEN  GEOCENTRIC  POSITION 

C 

N=FNNgdxyz<Dat € , fl 1  at , E 1  on, fli t , Mode  1 , 1 > 

:  !  CONVERT  Y,2  TO  GAUSS  FOR  PRINTING  <1  GRIJSS=  1E5  NANOTESLflS> 

2=-2/lE5 
H=HxlE5 

PRINT  USING  " 2 < 3D ,  1 X ,  3D .  DD ,  2X ,  1 X >  ,  2 <  311 .  DUDDDDD ,  2X  >  "  ;  R 1  at  deg ,  R 1  at  mi  n 
g,  El onmi n, H, 2 

GOTO  Input 
END 


DEF  FNNgdxvr <Yr, R1 at , El  on, fli t , Kt  hmod, Entry> 

OPTION  BASE  1 

COM  X ,  Y ,  2,  Dx,  Dy ,  Dz ,  Mode  1  s ,  Mode  1  $ ''20!) ,  Xmn<  SOO) ,  Ytnn<900> ,  2mn(900 > 

C 

C  FOR  THE  GIVEN  YEAR,  GEODETIC  POSITION,  ALTITUDE,  AND  MODEL,  THIS 
C  FUNCTION  COMPUTES  THE  MAGNETIC  ELEMENTS  X,  Y,  2,  XDOT,  YDOT,  ZDOT, 

C  AND  RETURNS  THEM  IN  COMMON, 

C 

C 

C  AT  THE  FIRST  ENTRY,  THIS  FUNCTION  READS  A  DECK  OF  1  TO  20  MODELS. 

C  THIS  DECK  IS  TERMINATED  BY  A  CARD  WITH  9999  IN  CC  1-4. 

C 

C  PARAMETERS 


C 

C  YR . DATE  IN  YEARS  /  1975.0 

C  ALAT . NORTH  LATITUDE  IN  DEGREES  x  40.0 

C  ELON . EAST  LONGITUDE,  IN  DEGREES  x  -103.0 

C  ALT . HEIGHT  ABOVE  THE  GEOID  IN  KILOMETERS  100.0 

C  KTHMOD . EITHER... THE  ORDINAL  OF  THE  MODEL,  IE,  3  WILL 

C  CAUSE  THE  3RD  MODEL  TO  EE  USED 

ENTRY . =0  IMPLIES  SIMPLE  FUNCTION  NGDXYZ  CALL 

=1  IMPLIES  ENTRY  NGCXYZ  CALL. 

C 

C 


C  ON  RETURN,  THE  VALUE  OF  NGDXYZ  WILL  INDICATE  WHAT  ERROR,  IF  ANY,  OC 

C 

C  NGDXYZ  »  0 . NO  ERROR 

C  ■  -1.... ERROR  IN  MODEL  DATA  RECORD.  FATAL 

C  *>  -2....  ARRAY  G  CWHEREIN  THE  SHC  S  OF  THE  MODELS  ARE  STORED) 
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IS 

2310  !  C 
FflTflL. 
2320  !  C 
2330  ! 
2340  !  C 
2350  !  C 
2360  !  C 
2370  !  C 
2380  !  C 
2390  !  C 
2400 


NOT  LfiRGE  ENOUGH.  <THE  SIZE  OF  G  IS  GIVEN  BY  MfilXGS>. 

=  -3.... MODEL  SPECIFIED  BY  KTHMOD  NOT  FOUND.  FflTflL. 

=  1 . YR  OUTSIDE  DATE  LIMITS  SET  BY  MODEL  HEADER  CARD 

=  2 . ALT  OUTSIDE  HEIGHT  LIMITS  SET  BY  HEADER  CARD 

=  3 . BOTH  YR  AND  ALT  OUTSIDE  LIMITS 


DIM  Ij£<20,3),Max<20,3),Epoch<20),Yrtnin<20),Yrmax(20>,A1tfnax';20),A1 


t-ini  n<20)  ,  G<600) 


2410  !  C 
2420  !  C 
2430  !  C 
2440  !  C 
2450  !  C 
2460 

2470  !  C 
2480 
2490  Al: 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610  ! 


THE  SIZE  OF  ARRAY  G  IS  PROBABLY  UNREASONABLY  LARGE  FOR  MOST  USERS. 
IF  ITS  SIZE  IS  CHANGED,  THEN  THE  VALUE  OF  MAXGS,  AS  SET  IN  THE 
FIRST  UATA  STATEMENT,  MUST  ALSO  BE  CHANGED. 


IF  Ernry=l  THEN  Lngcxyz  !  ENTRY  NGCXYZ  SIMULATION 

ENTRY  NGCXYZ  SIMULATION 

Ngdgc=0 

READ  Maxgs, Models 
DATA  600,  0 

READ  Maxmod, Maxxyz 
DATA  20,  30 

IF  Klhmod=0  THEN  fl2 
MAT  lj£=<:0) 

MAT  Yrtnax=<2000> 

MAT  Yrmin=<0) 

MAT  AUmax=<1.00Ell) 

MAT  flUtnin=<-1.00Ell) 

READ  Nthold,Ki 1 ler 
DATA  -1,  1 


2620 


*******************  MODEL  "USWC75"  ************************************* 


2630 


2640 

DATA 

0,0, 

"USWC75", 

1975.0, 

12,  8, 

0,  1967. 

0,  19 

2650 

DATA 

0,1, 

-30055. 7, 

0, 

24.39, 

0, 

0, 

2660 

DATA 

I>  1> 

-2017.0, 

5670.5, 

9.94, 

-10.29, 

0,0 

2670 

DATA 

0,2, 

-1932.0, 

0  , 

-24.85, 

0  , 

0,0 

2680 

DATA 

1,2, 

3001.3,- 

2044.4, 

1.19, 

-3.08, 

0,0 

2690 

DATA 

2,2, 

1619.7, 

-69.2, 

3.  10, 

-18.98, 

0,0 

2700 

DATA 

0,3, 

1267.1, 

0  , 

-3.74, 

0  , 

0,0 

2710 

DATA 

1,3, 

-2127.2, 

-343.5, 

-10.42, 

6.68, 

0,0 

2720 

DATA 

2,3, 

1259.4, 

263.2, 

-3.41, 

2.  13, 

0,0 

2730 

DATA 

3,3, 

818.0, 

-208.5, 

-3.70, 

-3.53, 

0,0 

2740 

DATA 

0,4, 

953.8, 

0  , 

.46, 

0  , 

0,0 

2750 

DATA 

1,4, 

786.  1, 

196.7, 

-1.78, 

4. 65, 

0,0 

2760 

DATA 

2,4, 

437.8, 

-257.0, 

-3.69, 

.96, 

0,0 

2770 

DATA 

3,4, 

-412.8, 

20.  1, 

-2.06, 

.87, 

0,0 

2780 

DATA 

4,4, 

232.3, 

-287.5, 

-1.60, 

-1.37, 

0,0 

2790 

DATA 

0,5, 

-214.2, 

0  , 

.31, 

0  , 

0,0 

2800 

DATA 

1,5, 

357.4, 

31.4, 

-.34, 

1.45, 

0,0 

2810 

DATA 

2,5, 

256.  1, 

150.7, 

.96, 

2.04, 

0,0 

2820 

DATA 

3,5, 

-42.8, 

-137.4, 

-1. 16, 

-1.27, 

0,0 

2830 

DATA 

4,5, 

-166.7, 

-81.9, 

-.37, 

1.34, 

0,0 

2840 

DATA 

5,5, 

-58.9, 

86.2, 

.63, 

1.04, 

0,0 

APL-IW  8110 


A9 


2850 

DftTfi 

0,6, 

41.7, 

0  , 

-.35, 

0  , 

0,0 

2868 

DfiTfi 

1,6, 

64.2, 

-19.9, 

.09, 

-.65, 

0,0 

2870 

DRTfl 

2,6, 

18.3, 

105.6, 

1.75, 

-.03, 

0,0 

2880 

DfiTfl 

3,6,  - 

■199.4, 

60.8, 

2.  13, 

-.61, 

0,0 

2890 

DATA 

4,6, 

3.2, 

-39.2, 

-.06, 

-1.01, 

0,0 

2900 

DATA 

5,6, 

10.6, 

1.8, 

.92, 

1.11, 

0,0 

2910 

DATA 

6,6,  - 

-108. 5, 

14.6, 

.24, 

1.48, 

0,0 

2920 

DATA 

0,7, 

74.3, 

0  , 

.45, 

0  , 

0,0 

2930 

DATA 

1,7, 

-49.7, 

-73.0, 

.  17, 

-1.50, 

0,0 

2940 

DATA 

2,7, 

5.4, 

-27.9, 

.57, 

-.02, 

0,0 

2950 

DATA 

3,7, 

24.8, 

-5.2, 

.87, 

.49, 

0,0 

2960 

DATA 

4,7, 

-11.8, 

8.2, 

.94, 

.  23, 

0,0 

2970 

DATA 

5,7, 

-3.7, 

13.9, 

.02, 

-.80, 

0,0 

2980 

DATA 

6,7, 

15.0, 

-21.0, 

.13, 

.17, 

0,0 

2990 

DATA 

7,7, 

.3, 

-9.3, 

-.  15, 

.  45, 

0,0 

3000 

DATA 

0,8, 

12.4, 

0 

.04'; 

0  , 

0,0 

3010 

DATA 

1,8, 

8.4, 

6.9, 

.37, 

-.22, 

0,0 

3020 

DATA 

2,8, 

-3.7, 

-15.4, 

.  14, 

- .  36 , 

0,0 

3030 

DATA 

3,8, 

-11.7, 

4.8, 

-.11, 

-.04, 

0,0 

3040 

DATA 

4,8, 

-8.5, 

-17.0, 

-.48, 

-.28, 

0,0 

3050 

DATA 

5,8, 

5.9, 

11.0, 

-.27, 

.  40, 

0,0 

3060 

DATA 

6,8, 

2.9, 

15.5, 

.55, 

-.  18, 

0,0 

3070 

DATA 

7,8, 

7.1, 

-9.6, 

-.41, 

-.70, 

0,0 

3080 

DATA 

8,8, 

3.  1, 

-19. 1, 

-.17, 

.04, 

0,0 

3090 

DATA 

0,9, 

12.5, 

0  , 

0  > 

0  , 

0,0 

3100 

DATA 

1,9, 

5.2, 

-17.2, 

0  t 

0  , 

0,0 

3110 

DATA 

2,9, 

1.5, 

17.2, 

0  > 

0  , 

0,0 

3120 

DATA 

3,9, 

-7.4, 

4.2, 

0  > 

0  , 

0,0 

3130 

DATA 

4,9, 

11.9, 

-.1, 

0  f 

0  , 

0,0 

3140 

DATA 

5,9, 

2.3, 

-4.9, 

0  > 

0  , 

0,0 

3150 

DATA 

6,9, 

-.4, 

9.1, 

0  • 

0  , 

0,  0 

3160 

DATA 

7,9, 

2.9, 

12.2, 

0  > 

0  , 

0,0 

3170 

DATA 

8,9, 

1 .6, 

-2.9, 

0  > 

0  , 

0,0 

3180 

DATA 

9,9, 

-.8, 

.8, 

0  > 

0  , 

0,0 

3190 

DATA 

0,  10, 

-5.5, 

0  , 

0 

0  > 

0,0 

3200 

DATA 

1,10, 

-2.0, 

.2, 

0  > 

0  > 

0,0 

3210 

DATA 

2,10, 

2.0, 

.6, 

0  > 

0  * 

0,0 

3220 

DATA 

3,  10, 

-2.7, 

-.5, 

0  > 

0  > 

0,0 

3230 

DATA 

4,  10, 

-4.0, 

4.3, 

0  * 

0  > 

0,0 

3240 

DATA 

5,  10, 

9.1, 

-4.0, 

0  , 

0  > 

0,0 

3250 

DATA 

6,10, 

4.2, 

2.7, 

0  > 

0  > 

0,0 

3260 

DATA 

7,  10, 

-2.2, 

-2.0, 

0  , 

0  , 

0,0 

3270 

DATA 

8,10, 

-.8, 

4.3, 

0  f 

0  > 

0,0 

3280 

DATA 

9,10, 

5.0, 

.1, 

0  > 

0  , 

0,0 

3290 

DATA 

10,  10 

,  2.1,  -4.5, 

0 

,  0 

,  0, 

3300 

DATA 

0,11, 

4.4, 

0  , 

0  , 

0  , 

0,0 

3310 

DATA 

1,11, 

-3.  1, 

1.0, 

0  , 

0  > 

0,0 

3320 

DATA 

2,11, 

-2.7, 

2.4, 

0  > 

0  > 

0,0 

3330 

DATA 

3,11, 

5.0, 

-2.1, 

0  > 

0  . 

0,0 

3340 

DATA 

4,11, 

-.3, 

2.4, 

0  > 

0  1 

0,0 

3350 

DATA 

5,11, 

-1.3, 

3.2, 

0  ) 

0  > 

0,0 

3360 

DATA 

6,11, 

-1 . 0, 

1.7, 

0  > 

0  > 

0,0 

3370 

DATA 

7,11, 

1.0, 

-.7, 

0  > 

0  > 

0,0 

3380 

DATA 

8,11, 

.9, 

-3.0, 

0  > 

0  > 

0,0 

3390 

DATA 

9,11, 

-2.1, 

-2.1, 

0  > 

0  I 

0,0 

3400 

DATA 

10,11 

f  •  8  >  "  2  f 

0 

,  0 

3410 

DATA 

11,11 

>  “'•5> 

0 

,  0 
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3420 

DATA 

0,12, 

-.7, 

0  , 

0 

f 

0  * 

0,0 

3430 

DOTO 

1,12, 

0.0, 

1.3, 

0 

9 

0  > 

0,0 

3440 

DOTO 

2,12, 

1.6, 

-1.8, 

0 

» 

0  > 

0,0 

3450 

DATA 

3,  12, 

.4, 

■9, 

0 

9 

0  » 

0,0 

3460 

DATA 

4,  12, 

-1.5, 

•1. 

0 

9 

0  > 

0,0 

3470 

DATA 

5,  12, 

-1.2, 

-1.8, 

0 

9 

0  1 

0,0 

3480 

DATA 

6,  12, 

-.4, 

1.4, 

0 

9 

0  > 

0,0 

3490 

DOTO 

7,12, 

-3.6, 

-1.1, 

0 

9 

0  > 

0,0 

3500 

DOTO 

8,12, 

.6, 

■  1  » 

0 

9 

0  > 

0,0 

3510 

DOTO 

9,12, 

.8, 

1.9, 

0 

9 

0  * 

0,0 

3520 

DATA 

10,12, 

-.3, 

-3.3, 

0 

9 

0 

0,0 

3530 

DATA 

11,12, 

1 .3, 

.6, 

0 

9 

0 

0,0 

3540 

DATA 

12,12, 

.7, 

1 .5, 

0 

9 

0 

0,0 

3550 

1 

3560 

♦ 

3570 

! 

3580 

! 

3590 

!  **************** 

TERMINOTION 

DOTO 

HEADER 

CORD  *************************** 

* 


3600  DflTfi  99, 99,  "ENIii"  ,0  ,  0,  0,  0,  0,  0,  0,  0 

3610  !  ****************i!**************************************************^^**** 

3620  ! 

3630  ! 

3640  Ngdxvz®0 

3650  IF  Model s>0  THEN  fll0 

3660  ljnext=0 

3670  02:  I*Models+l 

3680  IF  I>Mixmod  THEN  08 

3690  !  C 

3700  !  C  REOD  MODEL  HERDER  CORD 

3710  !  C 

3720  IF  1=1  THEN  RESTORE  2640  !  SELECT  THE  DOTO  FOR  THE  Ith  MODEL 

3730  IF  1=2  THEN  RESTORE  3600  !  TERMINOTION  DOTO  HERDER  CORD  IS 

REQUIRED 

3740  !  C  REOD  102,  M,  N,  MODEL<I),  EPOCH<i;-,  <MRX<I,JJ>,  JJ  =  1,  3:5, 

3750  REOD  M,  N,  Model  $<.!>,  Epoch(  I  >  ,  Max<  1 ,  1  >  ,  Max<  1 , 2>  ,  Max<  1 , 3> ,  Yr  mni  ,  Vrrnxi  , 

01 tmni , 01 tmxi 

3760  IF  M=99  THEN  09  !  CHECK  FOR  TERMINOTION  MODEL  HERDER  CORD 

3770  IF  Kthmod<>0  THEN  03 

3780  !  THIS  LOOP  SIMPLY  COUNTS  THE  NUMBER  OF  MODELS  OVRILOBLE  CEY  THE  DUMM 

Y  COLL  TO  NGDXYZ  FROM  THE  MOIN  PROGRAM) 

3790  Model s»Model s+1 

3800  GOTO  02 

3810  03:  IF  <M<>0)  OR  <N<>0)  THEN  081 

3820  IF  Rltmni<>0  THEN  0 1 t m i n< I )=01 t mn i 

3830  IF  Oltmxi<>0  THEN  01 tmaxC I )=fll tmxi 

3840  IF  Yrmni<>0  THEN  Yrm i n< I )=Yrmni 

3850  IF  Yrmxi<>0  THEN  Yrmax< I )=Yrmxi 

3860  FOR  J=1  TO  3 

3870  IF  Max<I,J)*0  THEN  04 

3880  Max<I, J)=Max<I, J)+l 

3890  I j»< I , J)»I jnext 

3900  I jnext=I jnext+Max< I , J)^2 

3910  NEXT  J 

3920  04:  IF  I jnext >=Maxgs  THEN  082 

3930  Model s=I 


CALCULATE  THE  NUMBER  OF  DATA  STATEMENTS  TO  EE  READ  FOR  THE  DESIRED 


3946  ! 
MODEL 


3950 

Ncard£=Max<I,  l)*<Max<I,  l)  +  l>/'2 

3960 

Maxg=Max< 1,1) 

3970 

Maxdg=Max< 1,2) 

3980 

Maxd2g=Max< I , 3) 

3990 

Ijl0*IjS<I, 1) 

4000 

I  j20=I js<I,2) 

4010 

Ij30=I js<I,3) 

4020 

I jl=I jl0+l 

4030 

FOR  Ij=Ijl  TO  Ijnext 

4040 

G<lj)=0 

4050 

NEXT  Ij 

4060 

FOR  Nc=2  TO  Ncards 

4070 

!  C 

4080 

!  C 

READ  MODEL  DATA  CARD 

4090 

!  C 

4100 

!  C 

READ  104,  M,  N,  GMN,  HMN,  DGMN,  DHMN,  D2GMH,  D2HMN,  MODELC 

4110 

READ  M,  N,  Gmn,  Hmn,  Dgmn,  Dhtinn,  D2gmri,  D2hii(in 

4120 

Ijl=Ijl0+N*Maxg+M+l 

4136 

I j2=I j20+N*Maxdg+M+l 

4140 

I j3=I j30+N*Maxd2g+M+l 

4150 

G< I j 1 )=Gmn 

4160 

IF  Dgtrin<>0  THEN  G  <  I  j  2  )  =Dgiiin 

4170 

IF  D2gmn<  >0  THEN  G<  I  j3>=D2gfnn 

4180 

IF  M=0  THEN  A6 

4190 

Ji  1  =  1  jl0+<:M-l  )*Maxg+N+l 

4200 

Ji2=Ij20+<M-l)»Maxdg+N+l 

4210 

Ji 3=1 j30+<M-l )*Maxd2g+N+l 

4220 

GC Ji 1 )=Hmn 

4230 

IF  Dhff.n<>0  THEN  G<Ji2)  =  Dhmri 

4240 

IF  D2hmn<>0  THEN  G<Ji3>=D2hnm 

4250 

A6: 

NEXT  Nc 

4260 

CALL  Smigau<G<*), Ijl0+l,Maxg,Maxg> 

4270 

IF  Maxdg<>0  THEN  CALL  Smi gaM(G(*) , I j20+l , Maxdg, Maxdg) 

4280 

IF  Maxd2g<>0  THEN  CALL  Smi gauCGC*) , I j30+l , Maxd2g, Maxd2g) 

4290 

GOTO  A2 

4300 

A8: 

IF  M099  THEN  A81 

4310 

A9: 

IF  Model s=0  THEN  A81 

4320 

IF  Kthmod=0  THEN  RETURN  Ngdxyz 

4330 

A10: 

IF  Kthmod=Nthol d  THEN  A20 

4340 

IF  ABS<Kthmod)<=Maxmod  THEN  A12 

4350 

FOR  1=1  TO  Models 

4360 

IF  KthmodOModel  <I)  THEN  All 

4370 

Nthtnod=I 

4380 

GOTO  A13 

4390 

Ai  1 : 

NEXT  I 

4400 

GOTO  A83 

4410 

A12: 

IF  <Kthi*.od<l)  OR  <Kthmod>Mod€l£)  THEN  A83 

4420 

Nthinod=Kthtnod 

4430 

A13: 

Nthol  d*Kthinod 

4440 

Maxg=Max(Nthtnod,  1 ) 

4450 

Maxdg=Max<Nthtnod,  2) 

4460 

Maxd2g=Max<Nthmod, 3) 

4470 

I  j  10=IJs(;Nthinod,  1 ) 

4480 

I j20=I js<Nthmod, 2) 

4490 

I j30=I jsCNthmod, 3) 
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CALL  Vecxyz<fllat,Elon,fllt,Maxg,Ngdgc> 
TEST  FOR  NON-FflTflL  ERRORS 


4500 

4510 

4520 

4530 

4540 

4550 

2 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 


R20: 

!  C 
!  C 
!  C 

IF  <  Yr<  Yrmi  n<Nthmod)  )  OR  <Yr>Yrmax<Nthtnod>  >  THEN  Ngdxyz=l 

IF  <fll t<fl1 tmi n<Nthmod) )  OR  <fll t >ftl tmaxCNthmod) >  THEN  Ngdxyz=Ngdxyz+ 

X»0 

Y=0 

Z=0 

Ij=ljl0 

Ji0=0 

FOR  1=1  TO  Maxg 
Ji=Ji0 

J i 0= J i 0+Maxxyz 
FOR  J=1  TO  Maxg 

Ij=Ij+l 
Ji=Ji+l 
Gtrini  j=G<  I  j  ) 

X=X+Xmn<  J 1  )*Gmrii  j 
Y=Y  +  Yfiin<Ji  )*Gmnij 
fl2l;  Z=2  +  2mn<  Ji  )*Ginni  j 

NEXT  J 
fl22;  NEXT  I 

IIX  =  0 
Dy=0 
Dz=0 

IF  Maxdg<=0  THEN  RETURN  Ngdxyz 
I,j  =  I.j20 
J10  =  0 

FOR  1=1  TO  Maxdg 
Ji=Ji0 

J i 0= J i 0+Maxxyz 
FOR  J=1  TO  Maxdg 

Ij=Ij+l 
Ji =Ji +1 
Dgmn i j=G< I j  > 

Dx  =  Dx  +  Xmri<  Ji  )*Dgmni  j 
Dy=Dy+Ytrin<Ji  )»Dginnij 
fl23;  Dz=Dz+Zmn< Ji )*Dgmni j 

NEXT  J 
824:  NEXT  I 

Dc1=Yr-Epoch<Nthmod) 

IF  Maxd2g>0  THEN  fl30 
X=X+De1*Dx 
Y*Y+Del «Dy 
2*Z+Ilel  *Dz 
RETURN  Ngdxyz 
R30:  D2x=0 

D2y=0 
II2z«0 
Ij»I j30 
Ji0-0 

FOR  1=1  TO  Maxd2g 
Ji “Ji© 

J i 0= J i 0  +  Maxxyz 
FOR  J>1  TO  Maxd2g 


I 
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5060 

5070  Ji*Ji+l 

5080  Dgtnni  j=G<  I  j  > 

5090  D2x=D2>s+Xmn<  Ji  )*Dgmni  j 

5100  D2y=D2y+Ymn<  Ji  )*Dgtnni  j 

5110  fl3i:  D2z=D2z+2mn< Ji )*Dgmni j 

5120  NEXT  J 

5130  fl32:  NEXT  I 

5140  I»el2=rel*De1 

5150  X=X+Del*Dx+Del2»D2x 

5160  Y*Y+Del*Dy+Del2*D2y 

5170  Z=Z+Ilel*Dz  +  Del2*D2z 

5180  Il6l2  =  2*Del 

5190  Ilx=Dx+DeI2*D2x 

5200  Dy=Dy+I)e  1  2*D2y 

5210  Dz=Dz+De1 2»D2z 

5220  RETURN  Ngdxyz 

5230  !  ENTRY  NGCXYZ 

5240  !  C  *  <  YR,  ALfiT,  ELON,  ALT,  NTHMOD  >  C 

OUT 

5250  !  C 

5260  !  C  THIS  ENTRY  IS  USED  WHEN  POSITION  AND  ALTITUDE  ARE  GEOCENTRIC.  THE 

5270  !  C  RETURNED  MAGNETIC  ELEMENTS  ARE  GEOCENTRIC. 

5280  !  C 

5290  Lngcxyz: Ngdgc^l 
5300  GOTO  A1 

5310  !  C 

5320  !  C  ERROR  RETURNS 

5330  !  C 

5340  !  C  NOTE  THAT  A  SECOND  ERROR  USES  A  D  TV  I  SION  BY  ZERO  TO  ABORT  THE 

PROGRAM 
5350  !  C 
5360  !  C 

5370  !  C  ERROR  IN  DATA  CARDS  OF  MODEL 

5380  A8i:  Mistek=l 

5390  PRINT  "MISTEK=1  AT  A81  -  PROBABLE  ERROR  IN  DATA  STATEMENTS  OF  THE 

MODEL" 

5400  GOTO  A89 

5410  !  C 

5420  !  C  ARRAY  G  INADEQUATELY  DIMENSIONED 

5430  !  C 

5440  A82;  Mi£tek=2 

5450  PRINT  "MISTEk:=2  AT  A82 - ARRAY  G  INADEQUATELY  DIMENSIONED" 

5460  GOTO  A89 

5470  !  C 

5480  !  C  MODEL  SPECIFIED  BY  KTHMOD  NOT  FOUND 

5490  )  C 

5500  fl83:  Mtstek=3 

5510  PRINT  "MISTEK=3  AT  R83  -  MODEL  SPECIFIED  BY  KTHMOD  NOT  FOUND" 

5520  GOTO  A89 

5530  A89:  Ngdxyz=-Mi stck/Ki n er 

5540  Kiner=0 

5550  RETURN  Ngdxyz 

5560  FNEND 

5570  ! 

5580  ! 

5590  ! 
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5600 

SUB  Vecxyz(fllat,E1on,fllt,Maxnew,Nycen) 

5610 

OPTION  BASE  1 

5620 

RAD 

5630 

COM  X, Y,Z,Dx,Dy,D2, Models, Model*<20>, Xmn <900), Yirin< 900 >.Zfnn<900> 

5640 

DIM  P<900),D<900),Rxy<30),Rz(30),Stn<30>,Ctri<30) 

5650 

READ  Rod,  01dth,01datn,01dlat,01dalt,01dr 

5660 

DATA  0.017453293,  9999.,  9999.,  9999.,  9999.,  -99. 

5670 

READ  Maxi , New, Radi  us.  Max,  Ntceno 

5680 

DATA  30,  1,  6371.2,  -1,  -1 

5690 

IF  Max=Maxnew  THEN  GOTO  B2 

5700 

Nyceno=-l 

5710 

Max=Maxnew 

5720 

IF  New=0  THEN  GOTO  B2 

5730 

New=0 

5740 

Maxi l=Maxi +1 

5750 

Maxi 2=Maxi  +2 

5760 

!  C 

SET  UP  CONSTANTS  IN  LOWER  TRIANGULAR  OF  P 

5770 

FOR  J=1  TO  Maxi 

5780 

J i = J-Max i 

5790 

A=< J-2)*< J-2) 

5800 

B=<2*J-3)*<2*J-5) 

5810 

FOR  1=1  TO  J 

5820 

J i = J i +Max i 

5830 

Bi: 

P<  Ji  )  =  <A-<  I-l  )-^2)xB 

5840 

NEXT  I 

5850 

NEXT  J 

5860 

B2: 

Am=E I on«Rod 

5870 

j 

5880 

IF  Nycen=Nyceno  THEN  GOTO  B3 

5890 

Nycerio=Nyceri 

5900 

01dlat=9999 

5910 

01dth=999 

5920 

01dr=-l 

5930 

B3: 

IF  NycenOO  THEN  B9 

5940 

!  C 

5950 

!  C 

POSITIONS  ARE  GEODETIC 

5960 

!  C 

XMN,  YMN,  ZMN  WILL  BE  GEODETIC 

5970 

!  C 

5980 

V1at=A1at 

5990 

Val  t=AU 

6000 

IF  <Vlat=01d1at)  AND  < Val t =0) dal t )  THEN  B10 

6010 

01 dl at=Vl at 

6020 

01  dal t=Va1 1 

6030 

Gg=V1at''2 

6040 

Rs=6378. 160+Gg*<-. 006460 1509+Gg« <6. 39897239E-7+Gg# ( -2 . 356S098E- 1 1 +G 

g*3.44645500E-16))) 

6050  Del=Vl  ar.*a  .  16781720E-4  +  Gg*<:-2. 34129534E-8  +  Gg#<  1 . 3408977GE- 1 2-Gg«2 . 

84450572E-17))) 

6060  Hr£*VaU+Rs 

6070  Beta=Rs*Del /Hrs 

6080  Th=<80.0-Vlat)*Rocl+Beta 

6090  R*<Hrs-Beta*Valt*Del*.5)/Radius 

6100  Bb«t  a=Beta''2 

6110  B«ta=Beta*<  l-*-Bbeta*<-1^6.0+Bbeta/120. 0>  > 

6120  IF  RBS<B*ta><l  THEN  B8 

6130  f 
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6140 

1 

SINUL8TI0N  OF  FORTRAN  "SIGN'' A,  E> "  FUNCTION 

6150 

IF  Beta>  =  0  THEN  Be-ta=l 

6160 

IF  Beta<0  THEN  Beta=-1 

6170 

! 

6180 

Cbet  a=0 

6190 

GOTO  B10 

6200 

B8: 

Cbeta=SQRCl-Eeta^2> 

6210 

GOTO  B10 

6220 

! 

6230 

!  C 

POSITIONS  ARE  GEOCENTRIC 

6240 

!  C 

XMN,  YMN,  2MN  WILL  BE  GEOCENTRIC 

6250 

!  C 

6260 

E9: 

R=1+A1 t 'Radi 

6270 

Th=<90. 0-Ai at )*Rod 

6280 

Bet  a=0 

6290 

B10: 

IF  Th=01dth  THEN  B20 

6300 

!  C 

COMPUTE  GAUSS  PMN,  DPMN 

6310 

01 dlh=Th 

6320 

U=COS(Th> 

6330 

V  =  SIN<Tf-i) 

6340 

IF  V=0  THEN  V=1.0E-20 

6350 

pa  >  =  1 

6360 

ri<i>=0 

6370 

Ii=l 

6380 

FOR  1=2  TO  Max 

6390 

Hi  l  =  Ii 

6400 

I i = I i +Max i 1 

6410 

Ili=Ii-l 

6420 

pa i  )=V*P<  1 1  i  1  > 

6430 

D<Ii  >=U*P<Ilil>+V*Daiil> 

6440 

PCI  1 i )=U*P< 1 1 i 1 > 

6450 

Da  1  i  )  =  U*D<  1 1  i  1  >-V*Pa  1  i  1  > 

6460 

B12: 

NEXT  I 

6470 

Ii=l 

6480 

FOR  1=3  TO  Max 

6490 

I2jl=Ii 

6500 

Ji 2=1 i +1 

6510 

I i =I i +Maxi 1 

6520 

I2j=Ii-l 

6530 

FOR  .J=I  TO  Max 

6540 

I2j2=I2jl 

6550 

I2jl=I2j 

6560 

I2j=I2j+Maxi 

6570 

Ji2=Ji2+l 

6580 

P<  I2j  )=U*Pa2j  1  )-P<:  Ji2>*Pa2j2> 

6590 

D<  I2j  )=U*D<  I2j  1  >-P<  Ji2)*D<;  I2j2>-V*Pa2..i  1  > 

6600 

B13: 

NEXT  J 

6610 

NEXT  I 

6620 

!  C 

6630 

!  C 

STORE  SINES  AND  COSINES  OF  LONGITUDE 

6640 

!  C 

6650 

B20: 

IF  Ani  =  01dain  THEN  B30 

6660 

01  dam=Ain 

6670 

Cm(2)=C0S(Am) 

6680 

Stti<2)=SIN<Am) 

6690 

Cma  )  =  1 

A16 
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6700 

Stn<  1  >=0 

6710 

FOR  1=3  TO  Max 

6720 

Sm<  I  )=Sni<  I-l  >*Ctri<2>  + 

6730 

Cm<  I  )=Ctri<  I-l  >*Cm(2)- 

6740 

B22: 

NEXT  I 

6750 

!  C 

6760 

!  C 

STORE  POWERS  OF  R 

6770 

!  C 

6730 

B30: 

IF  R=01dr  THEN  B40 

6790 

01 dr=R 

6800 

Rxy< 1>  =  1  'RxR 

6810 

RzU  >=-Rxyi:  1  ) 

6820 

FOR  1=2  TO  Max 

6830 

Rx^C I >=Rxy< I-l >xR 

6840 

Rz< I >=-I*Rxy< I ) 

6850 

NEXT  I 

6860 

!  C 

6870 

‘  C 

COMPUTE  XMN 

6880 

!  C 

6890 

B40: 

Jl  =  l 

6900 

FOR  J=2  TO  Max 

6910 

Jl=Jl+Max1 

6920 

X  m  n  <  J 1  >  =  R  X  y  <  J  )  *  D  <  J 1  ) 

6930 

B44: 

2niri<.Jl  )=Rzc:  J)*P<  Jn 

6940 

NEXT  J 

6950 

Vl=l/V 

6960 

Em=Vl 

6970 

I  i  =1 

6980 

FOR  1=2  TO  Max 

6990 

Cmi =Cm< I > 

7000 

Smi =Sm<  I ) 

7010 

Ij=Ii+l 

7020 

J1  =  I  i 

7030 

I  i  = I i +Max i 1 

7040 

FOR  .J=I  TO  Max 

7050 

I j=I j+Maxi 

7060 

Ji = Ji +1 

7070 

Rxy  j  =Rxj^  (  J  > 

7080 

Rdi j=Rxy j^DC I j  > 

7090 

XmnC I j  >=Cmi ♦Rdi j 

7100 

Xrnri<  Ji  )=Srfii  *Rdi  j 

7110 

Pi  j=P<I,j> 

7120 

Epr=Em*Pi j*Rxyj 

7130 

Ymn< I j  >=Epr*Smi 

7140 

Yfriri<!  Ji  )=-Epr*Cnni 

7150 

Rp  =  Rz  <  J  > ♦P i j 

7160 

2mn< I j )=Cmi *Rp 

7170 

2tnn<  J  i  )=Smi  *Rp 

7180 

B45: 

NEXT  J 

7190 

E46: 

Em=Em+Vl 

7200 

NEXT  I 

7210 

!  C 

7220 

IF  Beta=0  THEN  B50 

7230 

J1=0 

7240 

FOR  1=1  TO  Max 

7250 

I  j*Jl 

7260 

Jl=Jl+Maxi 
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7280 

7290 

IF  Ij=l  THEN  B48 

7300 

Xi  j=Xinn<  I  j  ) 

7310 

Zi j=Zmn< I j  > 

7320 

Xiitin<  I  j  >=Cbeta*Xi  j+Beta*Zi  j 

7330 

Zhm(Ij)=Cbeta*Zij-B€ta*Xij 

7340 

B48: 

NEXT  J 

7350 

B49: 

NEXT  I 

7360 

BS0: 

SUBEND 

7370 

1 

7380 

1 

7390 

SUB 

Sm i gau( G  <  *  > , Poi nt er , Maxg, Max  j  > 

7400 

OPTION  BASE  1 

7410 

RAD 

7420 

Root.  =Poi  nter-1 

74  30 

1 

GC*)  AND  POINTER  ARE  USED  HERE  TO  SIMULATE  THE  PASSING  OF 

ARRAY 

flS  PARAMETERS  IN  FORTRAN 

7440 

DIM  P<30,30) 

7450 

'  c 

7460 

!  C 

THIS  ROUTINE  CONVERTS  A  (MAXG.MAXG)  ARRAY  OF  SPHERICAL  HARMONIC 

7470 

'  C 

COEFFICIENTS,  STORED  IN  AN  ARRAY  DIMENSIONED  ( MAX I  ,  MAX I  , 

7480 

!  C 

FROM  SCHMIDT-NORMALIZED  TO  GAUSS-NORMALIZED  <MAIN  ENTRY>, 

OR 

7490 

!  C 

FROM  GAUSS-NORMALIZED  TO  SCHMIDT-NORMALIZED  (GAUSMI  ENTRY 

>  i 

7500 

'  C 

7510 

'  C 

7520 

READ  New, Max 

7530 

DATA  0,  30 

7540 

Next  *  1 

7550 

Di: 

IF  New<>0  THEN  D10 

7560 

New=  1 

7570 

P(  1  ,  1  :>*0 

7580 

P<1,2>=1 

7590 

P<2,2)=1 

7600 

FOR  1=3  TO  Max 

7610 

H=I-1 

7620 

P<  I ,  I  >=P< I-l , I-1)*SQR<1-.5xH) 

7630 

p<  1 ,  n=p(  1 ,  i-n*t2-ixH) 

7640 

H  =  H-1 

7650 

Hh  =  H-^2 

7660 

FOR  J=I  TO  Max 

7670 

F  =  J-1 

7680 

P<  I-l ,  J>=Ra-l ,  J-1  >*<F  +  F-1  )xSGR<F»F-Hh> 

7690 

Ii3: 

NEXT  J 

7700 

NEXT  I 

7710 

FOR  1=2  TO  Max 

7720 

FOR  J=I  TO  Max 

7730 

P<J, I-1>=P<I, J) 

7740 

NEXT  J 

7750 

NEXT  1 

7760 

DiO: 

IF  Next=2  THEN  D21 

7770 

Di  1 : 

FOR  J=1  TO  Maxg 

7780 

K«(J-l>*Maxi+Root 

7790 

FOR  I-l  TO  Maxg 

7800 

G< I+K>=G< I+K)*P< I , J) 

7810 

012: 

NEXT  I 

7820 

NEXT  J 

7830 

7840 

7850 

7880 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

OUT 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 


SUBEXIT 

D21:  FOR  J»1  TO  M*xg 

K“<J-l)*M*xi+Root 
FOR  1*1  TO  Maxg 
Pi J) 

IF  Pij*0  THEN  D22 
GCI+K>=G<I+K)/'Pi  j 
D22:  NEXT  I 

NEXT  J 
SUBEXIT 

!  ENTRY  GflUSMI 

!  C  »  <  G,  MflXG,  MflXI  ) 

Next=2 
GOTO  D1 
SUBEND 


DEF  FNfltan2<Y,X> 

!  EQUIVALENT  OF  THE  flTflN2  FUNCTION  IN  FORTRAN 

RAD 

IF  X=0  THEN  Vert 
Ang=ATN<Y/X) 

IF  X>0  THEN  RETURN  Ang 
IF  Y<0  THEN  Q3 
Ang=Ang+P I 
RETURN  Ang 
Q3;  Ang=Ang-PI 

RETURN  Ang 

Vert:  IF  Y<0  THEN  Down 

Ang=PIx2 
RETURN  Ang 
Down:  Ang=-PIx2 

RETURN  Ang 
FNEND 
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Program  DXFRO,  Sample  Run 

DXPRO  is  the  program  that  takes  DXGET  files  of  raw  data  and  pro¬ 
duces  velocity  profiles  on  files  emd  as  plots.  The  algorithms  are 
described  in  Section  III.B.2. 

DXPRO  is  usually  rvin  with  10  probe  revolutions  per  average  and 
with  5  revolutions  between  each  average.  The  probe  calibrations  are 
usually  pre-stored  in  the  XCAL:T15  file  but  can  be  entered  by  hand. 

DXFRO  can  search  the  XCAL:T15  file  by  probe  number  or  drop  number.  The 
earth's  magnetic  field  components  must  be  entered  with  the  calibration. 

DXPRO  will  use  the  HP  9845T  internal  graphics  option  or  an  HP  9872A 
or  HP  9872S  plotter. 

The  following  pages  show  the  operator  input  and  program  output. 

The  program  listing  follows. 


DXPROZ  81:04:07:18:18:47 

INPUT  PILE  NO.  1  ^  CCLEPIR  TO  TERMINATE) 

620RII 

EDIT  COMMENTS 

11:10:04:27:40  intensive  survey  heading  270 
NUMEER  OP  SCANS  IN  EACH  AVERAGING  WINDOW  ? 

10 

STEPPING  INCREMENT? 

5 

EDIT  calibration  file  name.  <BLANK  TO  ENTER  CAL  BY  HAND) 
XCAL  :T15 

XTVP  SERIAL  NO.  ’  <2ER0  TO  SEARCH  BY  DROP  NO.) 

871 

READING  XCAL  :T15 

EDIT:  Probe  Mod  Gcc  Gcor  Gef  Evco  Coco  Drop  Fh 
500  !  871  6  3628  1838  25230  1001  1000  620  .204-. 490 

OUTPUT  FILE  NAME? 

620P 

INPUT  FILE  NO.  2  ?  (CLEAR  TO  TERMINATE) 


Plotter  ?  < 

0=NONE 

,  1=GRAPHICS,  2 

=9872A, 

3=98 

72S) 

LOOKING  FOR 

PF  ON 

LAUNCH-TIME 

a 

1 1 : 10:04:27: 

52 

12. 

2378 

ISCAN 

=  98 

D0WN-TIME= 

11:10:04:29: 

06 

86. 

24273 

ISCAN 

=  673 

PROCESSING 

FILE 

1  .  IFILE=620RD 

,  OFILE 

=620P 

Z  Temp 

U 

V  W  Rotf 

Area 

Uw  Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

Ver 

-7  10.18 

33.5 

12.4  -454  5.23 

882 

94 

59  -7.6 

4.36 

118.3 

2453 

45032 

9 . 9 

-11  10.18 

28.4 

. 1  -454  6.27 

798 

94 

64  -8.3 

4.85 

113.9 

2438 

4505 

9. 0 

-15  10.18 

44.0 

-12.3  -454  6.60 

771 

94 

65  -6.8 

5.69 

118.1 

2477 

4505 

1 . 3 

-18  10.18 

39.8 

-18.4  -454  6.75 

767 

94 

66  -6.5 

5.90 

114.9 

2465 

4504 

1 .  1 

-21  10.18 

32.9 

-22.5  -454  6.83 

767 

94 

67  -6.3 

5.98 

111.1 

2485 

4504 

1 . 0 

-24  10.18 

26.2 

-22.0  -454  6.90 

763 

94 

67  -6.5 

5.88 

108.2 

2498 

4504 

1  .  1 

A20  APL-UW  8110 


K 


1 

I 

-28 

10.18 

20.4 

-19.5  -454 

6.97 

761 

94 

68  -6.5 

5.70 

105.7 

2498 

4504 

1 

.  9 

-31 

10.  18 

16.2 

-15.7  -454 

7.00 

764 

94 

69  -6.2 

5.48 

103.6 

2497 

4505 

.  9 

r 

-34 

10.  18 

15.4 

-9.9  -453 

7.01 

761 

94 

68  -6.2 

5.  19 

103.6 

2501 

4505 

•  7 

■  L 

-37 

10.18 

16.4 

-5.4  -453 

6.99 

759 

94 

68  -6.  1 

4.97 

104.5 

2501 

4504 

.  6 

-41 

10.  18 

18.9 

-1.7  -453 

6.99 

753 

94 

67  -6.3 

4.82 

106.4 

2503 

4505 

.  5 

imm 

-44 

10.  17 

21 . 3 

-.6  -453 

6.99 

752 

94 

67  -6.2 

4.78 

107.9 

2504 

4504 

.5 

'  [ 

-47 

10.18 

24.0 

-2.8  -453 

6.96 

750 

94 

67  -6.0 

4.92 

108.9 

2505 

4504 

.  7 

«i  «> 

-50 

10.  17 

26.0 

-4.7  -453 

6.93 

749 

94 

67  -6.  1 

5.04 

109.9 

2506 

4504 

.  5 

-54 

10.17 

26.3 

-6.5  -453 

6.92 

746 

94 

66  -6. 1 

5.  12 

109.8 

2506 

4504 

.  5 

-57 

10.17 

25.2 

-8.9  -453 

6.92 

745 

94 

66  -6.1 

5.  23 

108.9 

2506 

4504 

•T; 

-60 

10.06 

24.6 

-10.4  -453 

6.90 

741 

94 

66  -5.9 

5.29 

108.2 

2506 

4504 

.  6 

-64 

9.27 

19.  1 

-16.5  -453 

6.88 

751 

94 

66  -6.2 

5. 53 

105.  0 

2507 

4504 

1.6 

-67 

8.  17 

6 . 0 

-26.6  -453 

6.93 

792 

94 

70  -6.5 

5.95 

98. 3 

2506 

4504 

1.7 

1 

-70 

7.55 

-4. 2 

-31.0  -452 

6.  98 

822 

94 

74  -6.3 

6.  17 

93. 3 

2506 

4504 

1.0 

\ 

Z 

T  errip 

U 

V  W 

Rotf 

Area 

Uu 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

V  €  r 

-73 

7.  18 

-10.  2 

-36.7  -452 

6.98 

846 

94 

76  -6.  1 

6.46 

90.6 

2506 

4504 

• 

►  , 

“77 

6.79 

-14.0 

-39.5  -452 

6.94 

859 

94 

76  -6.0 

6.62 

88.9 

2506 

4504 

.  5 

i 

-80 

6.  59 

-16.0 

-38.5  -452 

6. 90 

855 

94 

76  -6.0 

6.58 

88.  1 

2506 

4504 

•  3 

f '. 

-83 

6. 43 

-16.1 

-35.1  -452 

6. 89 

840 

94 

74  -6.0 

6.41 

87.8 

2505 

4504 

.  5 

R  • 

-86 

6.43 

-16.2 

-28.6  -452 

6.86 

815 

94 

72  -5.7 

6.09 

87.  1 

2505 

4504 

.  4 

-90 

6. 39 

-14.6 

-23.6  -452 

6.84 

793 

94 

69  -6.0 

5.84 

87.8 

2505 

4503 

.  6  ' 

-93 

6.33 

-13.0 

-16.1  -452 

6.82 

764 

94 

67  -6.0 

5.46 

88.  1 

2505 

4503 

•  ^ 

-96 

6.26 

-11.8 

-10.1  -452 

6.81 

737 

94 

64  -5.9 

5.  16 

88.4 

2505 

4503 

.  4 

-100 

6.16 

-10.2 

-6.6  -452 

6.82 

722 

94 

63  -5.9 

4.97 

89.  1 

2505 

4503 

c; 

•  •»' 

-103 

6.  12 

-8.7 

-8.4  -451 

6.80 

723 

93 

63  -5.9 

5.05 

90.  0 

2505 

4503 

.  6 

-106 

6.09 

-8.9 

-12.4  -451 

6.77 

733 

93 

64  -6.0 

5.25 

90.  1 

2505 

4503 

.  4 

-110 

6. 02 

-9.0 

-10.0  -451 

6.78 

729 

93 

63  -6. 1 

5.13 

90.  1 

2505 

4502 

C' 

-113 

5.92 

-4.2 

-7.3  -451 

6.81 

718 

93 

63  -6.0 

4. 98 

92.6 

2505 

4502 

.  9 

-116 

5.  86 

€ 

-3.6  -451 

6.81 

704 

93 

62  -5.8 

4.79 

94.4 

2505 

4503 

1.0  ; 

' 

-120 

5.87 

2.6 

8.3  -451 

6.80 

669 

93 

58  -6.0 

4.21 

96.7 

2505 

4503 

1.0  i 

”123 

5.83 

5.2 

15.2  -451 

6.81 

648! 

93 

57  -6.2 

3.87 

98.9 

2505 

4502 

.  8 

-126 

5.81 

7.5 

18.6  -451 

6 . 82 

648 

93 

57  -6.1 

3.71 

100.8 

2505 

4502 

.  7 

-130 

5.77 

5.6 

19.2  -451 

6.82 

656 

93 

57  -6.2 

3.67 

99.5 

2505 

4502 

.5  .  ^ 

-133 

5.73 

4.  1 

17.4  -451 

6.80 

679 

93 

59  -6.  1 

5.76 

98.  1 

2505 

4502 

-136 

5.72 

6.  1 

14.6  -450 

6.78 

700 

93 

61  -6.1 

3.90 

99.4 

2505 

4502 

Z 

T  emp 

U 

V  W 

Rotf 

Area 

Uw 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

Vet-  i  ; 

-139 

5.72 

6 . 3 

7.8  -450 

6.78 

726 

93 

63  -6.  1 

4.24 

99.3 

2595 

4502 

.5 

-143 

5.72 

8.7 

4.5  -450 

6. 78 

742 

93 

64  -6.0 

4.41 

100.5 

2505 

4502 

.6  ! 

-146 

5.70 

10.2 

.6  -450 

6.76 

750 

93 

65  -5.9 

4.61 

101.1 

2505 

4502 

i  ' 

-149 

5.67 

9.5 

-5.4  -450 

6.75 

7  66 

93 

66  -6.0 

4.89 

100.4 

2505 

4502 

.8  !  .) 

-153 

5.63 

9.3 

-10.2  -450 

6.76 

779 

93 

67  -6. 1 

5.13 

100.1 

2505 

4502 

.  4 

-156 

5.60 

9.3 

-10.6  -450 

6.77 

775 

93 

67  -6.0 

5.  15 

100.0 

2505 

4502 

.  4 

-159 

5.59 

8.9 

-7.1  -450 

6.76 

760 

93 

66  -5.8 

4.98 

99. 9 

2505 

4502 

.4  1 

-163 

5.  59 

9.4 

-5.4  -450 

6.74 

751 

93 

65  -5.8 

4.89 

100.2 

2505 

4502 

•  3  i  ^ 

-166 

5.60 

7.3 

-3.8  -450 

6.74 

744 

93 

64  -5.9 

4.80 

99.2 

2505 

4502 

.5 

-169 

5.61 

5.5 

-3.2  -449 

6.  76 

742 

93 

64  -6. 1 

4.77 

98.  3 

2505 

4502 

.  3 

-173 

5.61 

4.2 

-3.0  -449 

6.77 

744 

93 

65  -5.9 

4.75 

97. 4 

2505 

4502 

.  5 

-176 

5.58 

2.3 

-4.1  -449 

6.75 

751 

93 

65  -5.9 

4.80 

96.2 

2505 

4502 

■  ^ 

-179 

5.55 

1 . 9 

-4.5  -449 

6.74 

754 

93 

65  -6.0 

4.82 

96.0 

2505 

4502 

.  4 

-183 

5.52 

1.6 

-4.9  -449 

6.75 

757 

93 

65  -6.0 

4.84 

95.9 

2505 

4502 

• 

-186 

5.49 

2.  1 

-5.0  -449 

6.75 

757 

93 

66  -5.9 

4.85 

96.  1 

2505 

4502 

■  3  1 

-189 

5.45 

2.3 

-3.9  -449 

6.74 

753 

93 

65  -5.9 

4.79 

96.2 

2505 

4502 

-193 

5.41 

2.5 

-3.5  -449 

6.72 

750 

93 

65  -6.0 

4.77 

96.4 

2505 

4501 

.  4  11 

:  ( 

-196 

5.37 

2.8 

-3.8  -449 

6.73 

751 

93 

65  -6.0 

4.78 

96.5 

2504 

4501 

.  4  a 

' 

-199 

5.32 

3.9 

-1.6  -449 

6.74 

744 

93 

64  -5.8 

4.67 

97.  1 

2505 

4502 

-203 

5.28 

3.9 

. 1  -448 

6.73 

736 

93 

63  -5.8 

4.59 

97.  1 

2505 

4502 

•  I 

'  1 

1 

Z 

Temp 

U 

V  M 

Rotf 

Area 

Uw 

Vc0a  Zcdp 

Ve0a 

VeOp 

Fefb 

Fccb 

1 

f 

j 

A 
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A21 

1 

-206 

5.24 

4.3 

.4  -448 

6.71 

737 

93 

63  -5.9 

4.58 

97.4 

2505 

4502 

•  3 

-209 

5.22 

4.5 

-1.1  -448 

6.71 

740 

93 

64  -6.0 

4.65 

97.7 

2505 

4502 

-213 

5.  17 

5.9 

-3.1  -448 

6.74 

744 

93 

64  -5.9 

4.75 

98.4 

2504 

4502 

■Zf 

-216 

5.  1 1 

6.9 

-1.9  -448 

6.73 

743 

93 

64  -5.7 

4.69 

98.8 

2505 

4502 

-219 

5.05 

7.6 

-2.9  -448 

6.70 

745 

93 

64  -5.7 

4.74 

99.2 

2504 

4502 

.  4 

-223 

5.02 

7.9 

-4.9  -448 

6.69 

747 

93 

64  -5.9 

4.84 

99.4 

2505 

4502 

• 

-226 

5.01 

8.3 

-4.1  -448 

6.71 

745 

93 

64  -6.0 

4.80 

99.8 

2505 

4502 

.  4 

-229 

4.99 

9.2 

-2.5  -448 

6.72 

738 

93 

64  -5.9 

4.73 

100.  3 

2505 

4502 

•  C* 

-233 

4.97 

9.0 

-2.4  -448 

6.  70 

736 

93 

63  -5.8 

4.72 

100.  1 

2505 

4  502 

-  2  3  6 

4.93 

10.1 

-3.3  -447 

6 . 68 

739 

93 

63  -6.0 

4.77 

100.  9 

2505 

4502 

.  4 

-239 

4.89 

11.8 

-4.6  -447 

6.70 

739 

93 

63  -6.0 

4.84 

101.8 

2505 

4502 

.  4 

-243 

4.86 

13.  3 

-3.4  -447 

6.71 

735 

93 

63  -5.8 

4.79 

102.6 

2504 

4502 

.  5 

-246 

4.84 

13.8 

-1.6  -447 

6.69 

728 

93 

62  -5.7 

4.71 

103.0 

2505 

4502 

.  4 

-249 

4.82 

14.0 

-1.7  -447 

6.67 

727 

93 

62  -5.9 

4.71 

103.2 

2505 

4502 

.  4 

-253 

4.81 

14.4 

-3.9  -447 

6.68 

735 

93 

63  -5.9 

4. 82 

103.3 

2505 

4502 

-256 

4.79 

13.9 

-4.4  -447 

6.69 

739 

93 

63  -5.9 

4.84 

103.0 

2505 

4502 

-260 

4.  76 

14.  1 

-3.9  -447 

6.69 

739 

93 

63  -5.8 

4.81 

103.0 

2505 

4502 

■z, 

-263 

4.73 

14.3 

-3.7  -447 

6.65 

738 

92 

63  -5.6 

4.81 

103.0 

2505 

4502 

.  4 

-266 

4.70 

14.2 

-2.3  -447 

6.64 

736 

92 

63  -5.9 

4.73 

103.3 

2504 

4502 

.  4 

-270 

4.68 

14.5 

-2.4  -446 

6.67 

737 

92 

63  -6.1 

4.74 

103.7 

2504 

4502 

2 

T  emp 

U 

V  U 

Rot  f 

Area 

Uw 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fef  b 

Fccb 

Ver 

-273 

4.65 

14.7 

-3.2  -446 

6.69 

739 

92 

63  -6.0 

4.78 

103.7 

2505 

4502 

-276 

4.61 

13.8 

-3.6  -446 

6.67 

743 

92 

64  -5.8 

4.79 

102.9 

2504 

4502 

.  4 

-280 

4.63 

13.9 

-4.0  -446 

6.65 

745 

92 

64  -5.7 

4.81 

102.8 

2504 

4502 

.  4 

-283 

4 . 63 

13.4 

-5.4  -446 

6.66 

746 

92 

64  -5.9 

4.88 

102.6 

2505 

4502 

.  3 

-286 

4.61 

12.3 

-6.5  -446 

6 . 68 

749 

92 

64  -5.8 

4.92 

101.9 

2505 

4502 

-290 

4.57 

11.7 

-6 . 7  -446 

6 . 66 

752 

92 

64  -5.7 

4.93 

101.3 

2504 

4502 

-293 

4.57 

11.9 

-6.1  -446 

6.63 

752 

92 

64  -5.7 

4.90 

101.5 

2504 

4502 

.  3 

-  2  9  6 

4.56 

11.2 

-4.6  -446 

6.63 

746 

92 

63  -6.0 

4.82 

101.5 

2504 

4502 

.  4 

-300 

4.56 

11.6 

-4.0  -446 

6 . 66 

743 

92 

63  -6. 1 

4.79 

101.8 

2504 

4502 

.  4 

-303 

4.55 

12.5 

-2.4  -445 

6 . 66 

740 

92 

63  -5.9 

4 . 72 

102.3 

2504 

4502 

-306 

4.53 

1  ^ 

-1.1  -445 

6.64 

736 

92 

63  -5.8 

4.66 

102.5 

2504 

4502 

.  2 

-310 

4.49 

11.4 

-1.1  -445 

6.63 

737 

92 

63  -5.8 

4.65 

101.6 

2504 

4502 

-313 

4.  43 

11.2 

-1.0  -445 

6.64 

738 

92 

63  -5.9 

4.64 

101.6 

2504 

4502 

•tj 

-316 

4.42 

12.7 

.0  -445 

6.66 

736 

92 

63  -6.0 

4 . 60 

102.7 

2504 

4501 

.  4 

-320 

4. 39 

14.6 

-.7  -445 

6 . 64 

738 

92 

63  -5.7 

4.64 

103.6 

2504 

4501 

.  3 

-323 

4 . 36 

15.  1 

-2. 1  -445 

6.61 

740 

92 

63  -5.7 

4 . 72 

103.7 

2504 

4501 

.  4 

-327 

4. 33 

14.3 

-4.4  -445 

6.62 

746 

92 

63  -6. 1 

4.82 

103.4 

2504 

4501 

.  5 

-330 

4.32 

13.3 

-5.4  -445 

6.64 

750 

92 

64  -5.9 

4.86 

102.5 

2504 

4501 

.  5 

-333 

4.31 

12.5 

-3.0  -444 

6.64 

744 

92 

63  -5.7 

4.74 

102.  1 

2504 

4502 

.  4 

-337 

4.29 

11.8 

.  1  -444 

6.61 

734 

92 

62  -5.6 

4.58 

101.9 

2504 

4501 

.  4 

2 

T  emp 

U 

V  U 

Rotf 

Area 

Uw 

Vc0a  Zcdp 

V€0a 

Ve0p 

Fefb 

Fccb 

Ver 

-340 

4.28 

11.9 

-.0  -444 

6.59 

734 

92 

62  -5.9 

4.59 

102.  1 

2504 

4501 

. 

-343 

4.29 

11.6 

-.9  -444 

6.61 

740 

92 

63  -5.8 

4.62 

101 . 9 

2504 

4501 

. 

-347 

4 . 28 

11.0 

-.5  -444 

6.62 

742 

92 

63  -5.9 

4 . 60 

101.6 

2504 

4502 

.  3 

-350 

4 . 26 

11.7 

1.0  -444 

6.60 

738 

92 

62  -5.7 

4.53 

101.9 

2504 

4502 

.  3 

-353 

4.23 

11.8 

. 1  -444 

6.  59 

739 

92 

62  -5.7 

4.58 

101 . 9 

2504 

4501 

.  3 

-357 

4.22 

10.4 

-.5  -444 

6.60 

744 

92 

63  -5.9 

4. 60 

101.3 

2504 

4501 

.  4 

-360 

4.21 

9.  1 

-1.5  -444 

6.61 

748 

92 

63  -5.9 

4.64 

100.3 

2504 

4501 

.  4 

-363 

4.21 

7.4 

-1.7  -444 

6.61 

751 

92 

64  -5.8 

4.64 

99.3 

2504 

4502 

■Zf 

-367 

4.20 

6.2 

-2.6  -443 

6.59 

754 

92 

64  -5.7 

4.68 

98.  3 

2504 

4502 

■  ^ 

-370 

4.20 

6.3 

-3.9  -443 

6.58 

758 

92 

64  -5.7 

4.74 

98.3 

2504 

4502 

■ 

-374 

4.  18 

6.2 

-2.7  -443 

6.59 

758 

92 

64  -5.7 

4.68 

98.4 

2504 

4502 

.  4 

-377 

4.  17 

6.4 

-.2  -443 

6.60 

751 

92 

64  -5.7 

4. 55 

98.6 

2504 

4501 

.  4 

-380 

4.  17 

6.7 

1.0  -443 

6.58 

747 

92 

63  -5.6 

4.50 

98.7 

2504 

4501 

-384 

4.  16 

6.2 

1.6  -443 

6.57 

743 

92 

63  -5.8 

4.47 

98.6 

2504 

4501 

•  3 

-387 

4.  15 

6.7 

2.4  -443 

6.58 

741 

92 

62  -5.8 

4.42 

98.9 

2504 

4502 

-390 

4.  15 

7.2 

2.5  -443 

6.60 

741 

92 

63  -5.7 

4.42 

99.2 

2504 

4502 

-394 

4.  14 

7.7 

2.7  -443 

6.59 

739 

92 

62  -5.7 

4.41 

99.5 

2504 

4501 

-397 

4.  14 

7.3 

1.9  -443 

6.57 

740 

92 

€2  -5.6 

4.45 

99.2 

2504 

4501 

-401 

4.13 

5.8 

.  1  -442 

6.56 

746 

92 

63  -5.8 

4.53 

98.3 

2504 

4502 

-404 

4.  12 

6.4 

-1.3  -442 

6.58 

753 

92 

63  -5.8 

4.61 

98.6 

2504 

4502 

Temp 

U 

V  M 

Rotf 

Area 

Uu 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

Ve 

-407 

4.  10 

5.9 

-1.2  -442 

6.58 

752 

92 

63  -5.7 

4.60 

98.2 

2504 

4502 

-411 

4.09 

6.9 

-1.0  -442 

6.57 

748 

92 

63  -5.7 

4.59 

98.8 

2504 

4502 

-414 

4.08 

7.2 

-2.0  -442 

6.56 

750 

92 

63  -5.8 

4.64 

99.  1 

2504 

4501 

-417 

4.  08 

6.3 

-2.7  -442 

6.58 

751 

92 

63  -5.9 

4.67 

98.6 

2504 

4501 

-421 

4.07 

6.9 

-3.1  -442 

6.59 

751 

92 

63  -5.8 

4.69 

98.8 

2504 

4502 

-424 

4.07 

6.8 

-2.6  -442 

6.58 

749 

91 

63  -5.6 

4.66 

98.6 

2504 

4502 

-427 

4.07 

6.3 

-3.0  -442 

6.  55 

747 

91 

63  -5.6 

4.68 

98. 3 

2504 

4502 

-431 

4.07 

5.6 

-3.5  -442 

6.55 

748 

91 

63  -5.8 

4.70 

98.0 

2504 

4501 

-434 

4 . 06 

6.  1 

-4.9  -441 

6.57 

750 

91 

63  -5.8 

4.77 

98.4 

2504 

4501 

-43S 

4.05 

5.6 

-6.5  -441 

6.56 

753 

91 

63  -5.6 

4.85 

97.8 

2504 

4502 

-441 

4.03 

5.2 

-6.1  -441 

6.54 

750 

91 

63  -5.6 

4.82 

97.5 

2504 

4501 

-444 

4.02 

5.3 

-4.7  -441 

6.54 

745 

91 

62  -5.8 

4.75 

97.9 

2504 

4501 

-448 

4.02 

4.7 

-3.5  -441 

6.56 

742 

91 

62  -6.0 

4.69 

97.  7 

2504 

4502 

-451 

4.01 

4.0 

-3.7  -441 

6.58 

742 

91 

62  -5.9 

4.70 

97.2 

2504 

4502 

-454 

4.01 

4.6 

-4.6  -441 

6.56 

744 

91 

63  -5.7 

4.75 

97.3 

2504 

4502 

-458 

4.01 

5.2 

-3.5  -441 

6.55 

742 

91 

62  -5.7 

4.69 

97.7 

2504 

4502 

-461 

4.01 

5.4 

-5.3  -441 

6.55 

745 

91 

62  -5.7 

4.78 

97.8 

2504 

4502 

-464 

4.01 

4.5 

-6.1  -440 

6.55 

749 

91 

63  -5.9 

4.81 

97.4 

2504 

4502 

-468 

4.00 

4.7 

-8.1  -440 

6.55 

752 

91 

63  -5.7 

4.91 

97.3 

2504 

4502 

-471 

4.00 

4.3 

-7.6  -440 

6.53 

751 

91 

63  -5.6 

4.89 

96.9 

2504 

4502 

2 

T  emp 

U 

V  W 

Rotf 

Area 

Uw 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Refb 

Fccb 

Vs 

-475 

3.99 

4.0 

-6 . 3  -440 

6.51 

748 

91 

62  -5.8 

4.82 

97.0 

2504 

4502 

-478 

3.99 

4.4 

-4.9  -440 

6.54 

743 

91 

62  -5.8 

4.75 

97.4 

2504 

4502 

-481 

3.98 

6.  1 

-3.9  -440 

6.55 

739 

91 

62  -5.7 

4.70 

98.3 

2504 

4502 

-485 

3.98 

6.2 

-3.1  -440 

6.54 

736 

91 

62  -5.7 

4.67 

98.4 

2504 

4502 

-488 

3.97 

5.4 

-4.7  -440 

6. 52 

739 

91 

62  -5.6 

4.74 

97.7 

2504 

4502 

-491 

3.97 

5.2 

-6.9  -440 

6.52 

745 

91 

62  -5.8 

4.85 

97.7 

2504 

4502 

■495 

3.97 

4.7 

-8.4  -440 

6.54 

750 

91 

63  -5.9 

4.92 

97.5 

2504 

4502 

-498 

3 . 96 

4.  8 

-10.2  -439 

6.54 

753 

91 

63  -5.7 

5.01 

97.3 

2504 

4502 

-501 

3.96 

4.3 

-9.6  -439 

6.51 

753 

91 

63  -5.5 

4.98 

96.8 

2504 

4502 

-505 

3.95 

4.5 

-10.6  -439 

6.50 

753 

91 

63  -5.6 

5.02 

97.  0 

2504 

4502 

-508 

3.94 

4,  8 

-14.0  -439 

6.52 

759 

91 

63  -5.8 

5.  19 

97.3 

2504 

4501 

-512 

3.94 

4.7 

-12.1  -439 

6.53 

754 

91 

63  -5.7 

5.  10 

97.2 

2504 

4501 

-515 

3.93 

5. 3 

-10.5  -439 

6.52 

746 

91 

62  -5.6 

5.02 

97.  4 

2504 

4502 

-518 

3.92 

6.  6 

-9.4  -439 

6.50 

741 

91 

62  -5.5 

4.97 

98.2 

2504 

4502 

-522 

3.91 

7.9 

-9.8  -439 

6.50 

738 

91 

61  -5.7 

4.99 

99.0 

2504 

4502 

-525 

3.91 

8.2 

-10.5  -439 

6.51 

739 

91 

62  -5.7 

5. 03 

99.2 

2504 

4502 

-528 

3.89 

8.8 

-10.1  -439 

6.52 

736 

91 

61  -5.7 

5.01 

99.5 

2504 

4502 

-532 

3.88 

8.0 

-9.0  -438 

6.49 

735 

91 

61  -5.5 

4.95 

99.0 

2504 

4502 

-535 

3.88 

8.  1 

-8.0  -438 

6.49 

733 

91 

61  -5.6 

4.90 

99.2 

2504 

4502 

-539 

3.87 

7.  9 

-9.2  -438 

6.51 

736 

91 

61  -5.8 

4.96 

99.2 

2505 

4502 

Z 

T  emp 

U 

V  W 

Rotf 

Area 

Uui 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

Vs 

-542 

3.86 

7.6 

-8.1  -438 

6.53 

735 

91 

62  -5.8 

4.90 

99.0 

2504 

4502 

-545 

3.86 

8.  9 

-8.7  -438 

6.51 

738 

91 

62  -5.6 

4.93 

99.5 

2504 

4502 

-549 

3.85 

9.4 

-8.6  -438 

6.48 

741 

91 

62  -5.6 

4.93 

99.8 

2504 

4502 

-552 

3.85 

9.2 

-8.9  -438 

6.49 

741 

91 

62  -5.7 

4.94 

99.9 

2504 

4502 

-555 

3.84 

8.3 

-9.7  -438 

6.51 

742 

91 

62  -5.8 

4.98 

99.  4 

2504 

4502 

-559 

3.83 

7.7 

-10.4  -438 

6.50 

744 

91 

62  -5.6 

5.01 

98.9 

2504 

4502 

-562 

3.82 

7.3 

-10.1  -437 

6.47 

745 

91 

62  -5.6 

4.99 

98.6 

2504 

4502 

-565 

3.81 

6.9 

-8.7  -437 

6.48 

743 

91 

62  -5.8 

4.92 

98.6 

2504 

4502 

-569 

3.81 

7.  1 

-8.7  -437 

6.50 

743 

91 

62  -5.8 

4.92 

98.7 

2504 

4501 
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-572 

3.79 

5.9 

-9.2  -437 

6.49 

746 

91 

62  -5.6 

4.94 

97.8 

2504 

4502 

.  3 

-576 

3.78 

5.  5 

-9.4  -437 

6.47 

750 

91 

62  -5.6 

4.95 

97.5 

2504 

4501 

.  3 

-579 

3.77 

4.0 

-9.6  -437 

6.  47 

751 

90 

62  -5.7 

4.95 

96.8 

2504 

4502 

-582 

3.76 

3.4 

-9.9  -437 

6.48 

751 

90 

62  -5.7 

4.96 

96.5 

2504 

4502 

3 

-586 

3.76 

2.8 

-9.3  -437 

6.49 

752 

90 

63  -5.6 

4.93 

96.  1 

2504 

4502 

-589 

3.75 

3.9 

-9.8  -437 

6.47 

750 

90 

62  -5.6 

4.96 

96.6 

2504 

4501 

.  4 

-592 

3.74 

4.3 

-9.6  -437 

6.46 

747 

90 

62  -5.8 

4.95 

97.  1 

2504 

4501 

.  4 

-596 

3.  74 

3.7 

-8.9  -436 

6.48 

745 

90 

62  -5.8 

4.91 

96.8 

2504 

4501 

-599 

3.72 

4.8 

-8.6  -436 

6.48 

743 

90 

62  -5.5 

4.90 

97.  1 

2504 

4501 

.  4 

-603 

3.71 

5.  1 

-8.9  -436 

6.46 

743 

90 

62  -5.5 

4.91 

97.3 

2504 

4501 

.  4 

-606 

3.71 

4.9 

-8.5  -436 

6.46 

741 

90 

61  -5.6 

4.89 

97.3 

2504 

4501 

,  4 

z 

T  etnp 

U 

V  U 

Rot  f 

Area 

Uu 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

V  e  r 

-609 

3.  70 

4.5 

-7.4  -436 

6.47 

739 

90 

61  -5.7 

4.83 

97.2 

2504 

4501 

.  4 

-613 

3.69 

5.3 

-8.1  -436 

6.47 

741 

90 

61  -5.6 

4.87 

97.6 

2504 

4501 

3 

-616 

3.68 

4.9 

-9.2  -436 

6.46 

745 

90 

62  -5.4 

4.92 

97.  1 

2504 

4501 

.  4 

-619 

3.  67 

4.  1 

-9.8  -436 

6.44 

747 

90 

62  -5.6 

4.95 

96.7 

2504 

4501 

.  5 

-623 

3.66 

3 . 2 

-8.7  -436 

6.46 

747 

90 

62  -5.7 

4.89 

96.5 

2504 

4501 

.  4 

-626 

3.66 

2.6 

-8.0  -435 

6 . 46 

745 

90 

62  -5.5 

4. 86 

95.9 

2504 

4501 

.  4 

-630 

3 .  o  5 

2.2 

-8.2  -435 

6.45 

746 

90 

62  -5.5 

4.87 

95.7 

2504 

4501 

-633 

3.64 

1.8 

-8.3  -435 

6.44 

746 

90 

62  -5.6 

4.86 

95.5 

2504 

4501 

2 

-636 

3.64 

2.3 

-8.1  -435 

6.46 

746 

90 

62  -5.8 

4.86 

96.0 

2504 

4501 

Pt 

-640 

3.63 

1.8 

-7.6  -435 

6.47 

744 

90 

62  -5.6 

4.83 

95.5 

2504 

4501 

.  3 

-643 

3.62 

1 . 4 

-6.7  -435 

6.45 

744 

90 

62  -5.5 

4.78 

95.2 

2504 

4501 

Pi 

-646 

3.61 

.9 

-7.6  -435 

6.44 

747 

90 

62  -5.6 

4.83 

95.0 

2504 

4501 

Pi 

-650 

3.61 

.4 

-6.6  -435 

6.45 

745 

90 

62  -5.7 

4.77 

94.8 

2504 

4501 

3 

-653 

3.60 

.7 

-5.5  -435 

6.46 

742 

90 

61  -5.7 

4.72 

94.9 

2504 

4501 

-657 

3.59 

1 . 3 

-5.6  -435 

6.44 

741 

90 

61  -5.5 

4.73 

95.2 

2504 

4502 

•i' 

-660 

3.59 

1.  1 

-6.4  -434 

6.44 

742 

90 

61  -5.6 

4 . 77 

95.  1 

2504 

4502 

o 

-663 

3.59 

1 . 4 

-5.5  -434 

6.45 

7  45 

90 

62  -5.6 

4.72 

95.3 

2504 

4501 

3 

-667 

3.58 

1.4 

-4.8  -434 

6.45 

745 

90 

62  -5.6 

4.68 

95.3 

2504 

4501 

2 

-670 

3.58 

1.0 

-3.8  -434 

6.43 

739 

90 

61  -5.6 

4.63 

95.  1 

2504 

4501 

2 

-673 

3.57 

1.6 

-5.3  -434 

6.44 

741 

90 

61  -5.7 

4.71 

95.5 

2504 

4501 

3 

Z 

Temp 

U 

V  W 

Rotf 

Area 

Uu> 

Vc0a  Zcdp 

Ve0a 

Ve0p 

Fefb 

Fccb 

V  e  r 

-677 

3 . 56 

2.6 

-5.6  -434 

6.46 

744 

90 

62  -5.7 

4.72 

96.  1 

2504 

4501 

o 

-680 

3 . 56 

3.3 

-5.5  -434 

6.  45 

742 

90 

61  -5.4 

4.  72 

96.2 

2504 

4501 

3 

-684 

3 . 56 

3.  1 

-5.2  -434 

6.42 

742 

90 

61  -5.5 

4 . 70 

96.2 

2504 

4501 

4 

-687 

3.56 

3.4 

-6.6  -434 

6.43 

743 

90 

61  -5.7 

4.77 

96.6 

2504 

4501 

3 

-690 

3.55 

3. 0 

-6.2  -434 

6.44 

744 

90 

61  -5.6 

4.75 

96.2 

2504 

4501 

3 

-694 

3.54 

2.9 

-4.9  -433 

6.42 

741 

90 

61  -5.3 

4.68 

95.9 

2504 

4501 

-697 

3.54 

2.0 

-4.2  -433 

6.40 

741 

90 

61  -5.6 

4.65 

95.7 

2504 

4501 

2 

-700 

3.53 

1 . 8 

-3.3  -433 

6.42 

741 

90 

61  -5.8 

4.60 

95.7 

2504 

4501 

•  el! 

-704 

3.52 

2.3 

-3.1  -433 

6.43 

740 

90 

61  -5.5 

4.59 

95.8 

2504 

4501 

eL 

-707 

3.51 

2.  1 

-3.7  -433 

6.40 

742 

90 

61  -5.4 

4.61 

95.5 

2504 

4501 

.  4 

-711 

3.51 

.  1 

-4.3  -433 

6.42 

746 

90 

61  -5.6 

4.64 

94.5 

2504 

4502 

.  4 

-714 

3.50 

.0 

-4.1  -433 

6.43 

750 

90 

62  -5.5 

4.63 

94.4 

2504 

4502 

.  3 

-717 

3.49 

-.8 

-4.8  -433 

6.41 

751 

90 

62  -5.4 

4.67 

93.8 

2504 

4502 

.  4 

-721 

3.49 

-.4 

-5.5  -433 

6.41 

749 

90 

62  -5.6 

4.70 

94.2 

2504 

4502 

3' 

-724 

3.  49 

-.4 

-5.4  -432 

6.42 

745 

90 

61  -5.6 

4.69 

94.2 

2504 

4502 

.  4 

-727 

3.48 

-.3 

-3.4  -432 

6.41 

741 

90 

61  -5.4 

4.59 

94.  1 

2504 

4502 

.  4 

-731 

3.47 

.  7 

-2.9  -432 

6.40 

739 

90 

61  -5.6 

4.57 

94.9 

2504 

4501 

el 

-734 

3.46 

1 . 4 

-3.1  -432 

6.41 

740 

89 

61  -5.7 

4.58 

95.4 

2504 

4501 

.  3 

-737 

3.46 

2.0 

-3.1  -432 

6.42 

739 

89 

61  -5.6 

4.58 

95.7 

2504 

4501 

.  3 

-741 

3.45 

2.3 

-3.0  -432 

6.41 

740 

89 

61  -5.5 

4.57 

95.7 

2504 

4502 

.  3 

2 

Temp 

U 

V  M 

Rot  f 

Area 

Uw 

Vc0a  Zcdp 

VeOa 

Ve0p 

Fefb 

Fccb 

Ve  r 

-744 

3.45 

3.0 

-3.0  -432 

6.40 

740 

89 

61  -5.6 

4.57 

96.3 

2504 

450 

•i 

■  & 

-748 

3.45 

3.5 

-2.2  -432 

6.41 

738 

89 

61  -5.6 

4.53 

96.6 

2504 

4  5  0  2 

.  3 

-751 

3.44 

2.7 

-2.4  -432 

6.40 

738 

89 

61  -5.5 

4.54 

96.0 

2504 

4  501 

.  3 

-754 

3.43 

2.0 

-2.5  -432 

6.39 

740 

89 

61  -5.6 

4.54 

95.6 

2504 

4501 

.  3 
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-758 

3.43 

1.8 

-1.8  -431 

6.39 

741 

89 

61  -5.6 

4.51 

95.6 

2504 

4502 

CJ 

-761 

3.42 

.9 

-2.1  -431 

6.  39 

742 

89 

61  -5.5 

4.52 

94.9 

2504 

4501 

.  5 

-764 

3.42 

.  9 

-3.5  -431 

6.37 

745 

89 

61  -5.5 

4.59 

94.9 

2504 

4501 

.  4 

-763 

3.41 

.  8 

-3.2  -431 

6.37 

745 

89 

61  -5.5 

4.57 

94.8 

2504 

4502 

.  4 

-771 

3.41 

.  3 

-1.8  -431 

6.39 

741 

89 

61  -5.5 

4.50 

94.5 

2504 

4502 

-775 

3.41 

.  4 

-.8  -431 

6.38 

736 

89 

60  -5.6 

4.45 

94.7 

2504 

4502 

p 

-778 

3.40 

.9 

-.7  -431 

6.38 

735 

89 

60  -5.6 

4.44 

95.0 

2504 

4502 

3 

-781 

3.39 

1.2 

-1.3  -431 

6.37 

739 

89 

60  -5.5 

4.47 

95.  1 

2504 

4502 

Pi 

-785 

3.38 

1.7 

-1.7  -431 

6.36 

742 

89 

60  -5.4 

4.49 

95.  3 

2504 

4502 

-783 

3.27 

1.8 

-1.4  -430 

6.35 

740 

89 

60  -5.5 

4.48 

95.5 

2504 

4502 

p 

-792 

3. 37 

1 . 6 

-1.9  -430 

6 . 36 

740 

89 

60  -5.6 

4.50 

95.  4 

2505 

4502 

p 

-795 

3.36 

1 . 4 

-1.2  -430 

6.35 

742 

89 

60  -5.3 

4.46 

95.0 

2504 

4502 

-798 

3.  35 

1 . 2 

-.5  -430 

6.36 

740 

89 

60  -5.5 

4.43 

95.  1 

2505 

4502 

e 

-802 

3. 34 

-.  1 

-.3  -430 

6.36 

739 

89 

60  -5.5 

4.42 

94.2 

2504 

4502 

.  5 

-805 

3.34 

-1.2 

-.3  -430 

6.35 

741 

89 

60  -5.4 

4.42 

93.5 

2504 

4502 

.  4 

-80S 

3.33 

-1.7 

-.4  -430 

6.34 

743 

89 

60  -5 . 6 

4.42 

93.3 

2504 

4502 

.  3 

2 

T  emp 

U 

V  W 

Rot  f 

Area 

Umj 

Vc0a  2c  dp 

Ve0a 

Ve0p 

Fefb 

Fccb 

Ver 

-812 

3.33 

-2.0 

-.3  -430 

6.35 

744 

89 

61  -5.6 

4.41 

93.  1 

2504 

4502 

p 

-815 

3.33 

-1.9 

-1.3  -430 

6.33 

746 

89 

61  -5.3 

4 . 46 

93.0 

2504 

4502 

p 

-819 

3. 32 

-3.  0 

-.9  -429 

6.33 

746 

89 

60  -5.5 

4.44 

92.  4 

2504 

4502 

P 

-822 

3 . 32 

-3.0 

.4  -429 

6.33 

743 

89 

60  -5.7 

4.38 

92.5 

2504 

4502 

P 

-825 

3.31 

-2.7 

. 1  -429 

6.  32 

743 

89 

60  -5.5 

4.39 

92.6 

2504 

4502 

p 

-829 

3.31 

-4.  1 

.0  -429 

6.32 

743 

89 

60  -5.6 

4.40 

91.7 

2504 

4502 

.  4 

-832 

3. 30 

-3.9 

1.1  -429 

6.32 

744 

89 

60  -5.4 

4.34 

91 . 7 

2504 

4502 

.  4 

-836 

3.29 

-3.7 

.1  -429 

6.31 

746 

89 

60  -5.4 

4.39 

91.8 

2505 

4502 

.  4 

-839 

3.28 

-3.9 

-.4  -429 

6.32 

749 

89 

61  -5.5 

4.42 

91.8 

2504 

4502 

p 

-842 

3.28 

-5.4 

-.8  -429 

6.31 

749 

89 

61  -5.4 

4.44 

90.8 

2504 

4502 

3 

-846 

3 . 2  r' 

-6.  1 

-1.5  -429 

6.30 

751 

89 

61  -5.4 

4.47 

90.4 

2504 

4502 

.  3 

-849 

3.  27 

-6.9 

-1.7  -429 

6.30 

751 

89 

61  -5.5 

4.49 

90.0 

2504 

4502 

•  3 

-853 

3.27 

-7.4 

-2.0  -428 

6.30 

753 

89 

61  -5.4 

4.50 

89.6 

2504 

4502 

.  4 

-856 

3.  26 

-7.5 

-2.7  -428 

6.29 

753 

89 

61  -5.5 

4.53 

89.6 

2505 

4502 

.  4 

-859 

282. 

1.78 

9974155 

77.2 
41  2D. 

-3.9  -428 
D 

6.23 

1612 

89 

129  72.9 

5.96 

55.7 

2450 

4507 

-862 

-1.98 

347.2- 

259.3  -423 

7.  1610727 

89 

985 

-219.813728993  3D.Ii 
24.29  -6.2  2450  4484 

425.722796875  2D.D 

MEflN  fiRE(=l=  745  cm''2 
2-1000  0 

ENTER  NEW  PLOT  LIMITS:  PLO,  PHI 
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Listing  of  DXPRO 


10 

Progrev*= 

"DXPROZ 

tl 

! 

20 

Year=81 

30 

! 

40 

!  DXPRO 

.  .  DEC 

19 

79 

50 

!  DXPROB 

.  .  DEC 

21 

79 

60 

!  DXPROC 

.  .  JAN 

13 

80 

TIMES 

70 

!  DXPROD 

.  .  JAN 

14 

80 

80 

1  DXPROE 

.  .  JAN 

15 

80 

S 

90 

!  DXPROF 

.  .  JAN 

16 

80 

100 

!  DXPROG 

.  .  JAN 

17 

80 

no 

!  DXPROH 

.  .  JAN 

25 

80 

120 

!  DXPRO I 

.  .  MAR 

9 

80. 

130 

!  DXPROJ 

.  .  MAR 

1 1 

80 

140 

!  DXPROK 

.  .  MAR 

19 

80 

150 

!  DXPROL 

.  .  MAR 

24 

80 

160 

!  DXPROM 

.  .  MAR 

25 

80 

170 

!  DXPRON 

.  .  MAR 

25 

80 

180 

!  DXPROP 

.  .  MAR 

28 

80 

190 

!  DXPROR 

.  .  APR 

29 

80 

200 

!  DXPROS 

.  .  MAY 

6 

80. 

210 

!  DXPROT 

.  .  JUN 

17 

80 

220 

!  DXPRO V 

.  .  JUL 

31 

80 

230 

!  DXPROW 

.  .  AUG 

5 

80. 

240 

! 

.  .  OCT 

31 

80 

250 

! 

AND 

CHANG 

260 

!  DXPROX 

.  .  NOV 

19 

80 

270 

! 

DXPROW 

AN 

280 

1 

THE 

PROBE 

290 

! 

300 

!  DXPROY 

.  .  JAN 

28 

81 

310 

!  DXPROZ 

.  .  MAR 

31 

81 

320 

330 


PROGRAM  REVISION 


DIGITAL  XTVP  RCVR  PROCESSING  (see  outline  below> 
BARTLETT  WINDOWS;  INSTANTANEOUS  NORMALIZATION. 
CORRECTED  I  &  Q  OF  EF  &  CC  FOR  DIFF  UP  &  DOWN  COUNT 


FORCE  TIME  TO  INCREASE  AFTER  PF  COMES  ON  FOR  5  TURN 

PROCESS  ONLY.  TO  GET  DATA  USE  DNGET. 

INTERPOLATE  TO  EQUALLY  SPACED  DEPTH  AND  OUTPUT  FILE 
MORE  INFO  TO  GET  TO  SCAN  WHERE  PROBE  FALLS 
PROCESS  BASELINE  INFO.  SIGN  OF  Q  FROM  RVCR  CHANGED. 
PLOT  EF&CC  BL. 

MORE  TESTS. 

PLOT  BL  AVGS  AND  STD  DEV 
PLOT  RMSERR 

RMSERR  SHOWS  DIFF  BETWEEN  ERRC0R=3  AND  ERRCOR=l 
RMSERR  FROM  RMS  OF  DATA. 

MODIFIED  TO  OUTPUT  NEW  FILE  FORMAT  AND  USE  GRAPHICS 
SPEEDED  UP  DXPROR  BY  ONLY  CORRECTING  NEW  DATA 
CHANGED  RMSERR  TO  VELERR  =  RMSERR.'SQR ( NAV > 

ADDED  "BATCH"  CAPABILITY. 

ADDED  9872S  LOGIC  FOR  BATCH. 

REMOVED  PAUSE  BEFORE  PLOTTING  ON  9872A. 


ADDED  COMMENTS.  JHD. 


OUTLINE 


340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 


Initial i zat i on 

-  print  program  name  , revision  and  run  time 

-  dimension  arrays 

-  read  in  processing  parameters  for  up  to  lOO  drops;  terminate  when 
an  input  file  name  is  blank. 

-  get  parameter  file  name  with  probe  gain  calibrations. 

-  use  serial  number  of  drop  i.d.  to  search  parameter  file  for  gains. 

-  calibration  string  can  be  editted. 

-  must  add  the  earth's  magnetic  field  if  not  in  file 

-  the  plotter  choice  allows  the  9872A  only  when  one  file  is  processed 
Drop  loop:  repeats  once  per  drop 

-  some  constants  are  preset  to  reduce  run  time. 

Main  Processing  Loop. 

-  repeats  once  each  NAV-long  averaging  window. 

-  For  NAV=10,  NSTEP=5  this  loop  repeats  about  300  times. 

-  read  raw  input  data  keeping  in  sync  with  the  sync  word  (7777  he  O 

-  look  for  beginning  of  drop  by  examining  status  word: 

1.  received  carriers 

2.  probe  falling  bit  (PF) 

-  probe  depth  is  based  on  the  time  from  the  PF  bit  turns  on. 
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540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

320 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 


!  -  for  each  new  raw  data  scan  the  baseline  error  correction  is 

!  applied  to  I  and  Q  and  the  scan  is  appended  to  the  array. 

!  -  old  scans  are  pushed  off  end  of  Dbuf<:*:>  array 

!  -  form  Dau<*)  array  with  weighted  auerages  of  Dbuf<*>. 

!  -  in-phase  and  quadrature-phase  probe  carrier  frequencies  are  computed 

!  -  real  and  imaginary  input  voltages  to  probe  are  computed. 

!  -  U  and  V  velocity  component  estimates  are  computed.  tilt  correction 

!  is  done  in  next  loop  as  mean  area  is  needed. 

!  -  each  output  scan  is  stored  in  Dout<*>  array. 

!  Correct  the  north  component  for  North-South  tilt  errors 
!  -  need  mean  area 

!  -  fix  the  DoutC*)  array 

!  Write  Data  in  DoutC* )  to  File. 

!  -  stanardized  format  with  labels 

!  Plot  Data  on  9872fl,  9872S,  or  GRAPHICS  screen. 

!  -  the  9372S  handles  multiple  plots 

!  -  keep  to  8.5  by  11  inch  plots 

!  -all  graphs  on  one  sheet  in  multiple  colors 
!  Repeat  drop  1 oop 
! 

Pr i nter=0 

PRINTER  IS  Printer 


OUTPUT  9;"R"  !  SETUP  TO  GET  REAL-TItlE  FROM  CLOCK 

ENTER  9;Runtime#  !  GET  IT 
Runt i me*=VflLt<Year ; "&Runt i me* 

PRINT  Progrev*, Runt i me* 


OPTION  EASE  1 

OVERLAP 

DEG 


STARTS  ARRAYS  AT  1  INSTEAD  OF  DEFAULT  0 
RUN  HP-9845  PROCESSORS  SO  I/O  OVERLAPS  CPU 
TRIG  FUNCTIONS  USE  DEGREES  INSTEAD  OF  RADIANS 


DIM  Comment*! 160] 
DIM  Var*<9> 

DIM  St  ring* Cl  60] 

! 

SHORT  Di n<2: 1 1 ) 
SHORT  Dbuf <52, 2: 10) 

SHORT  Wt<50) 

SHORT  Dav<2; 10) 

! 

SHORT  Phi <9) 

SHORT  Plo<9) 

SHORT  Dout<1000,9) 

! 

DIM  B3<3),B2<3) 

DIM  T<3,3) 

DIM  Tinv<3,3) 

DIM  C2<3),C3<3) 

DIM  Tei <3) , Teq<3) 


COMMENTS  FROM/TO  FILES 
OUTPUT  FILE  VARIABLE  NAMES 
USED  TO  READ  PARAMETER  FILE 

INPUT  DATA  BUFFER  READS  10  VALUES  PER  READ 
PUSH-DOWN  INPUT  BUFFER  WITH  EXTRA  SCAN  AT  EACH  END 
NEEDED  FOR  BASELINE  ERROR  CORRECTION. 

BARTLETT  FILTER  WEIGHTS  APPLIED  TO  INPUT  DATA 
FOR  DOT  PRODUCT  OF  DBUF  AND  WT 

PLOTTER  HIGH  LIMITS 
PLOTTER  LOW  LIMITS 

DATA  OUTPUT  ARRAY  <GETS  REDIMENSIONED  LATER) 

BASELINE  FREQUENCIES  FOR  F2<EF)  AND  F3<CC) 
COEFFICIENTS  OF  C,  D  &  E  IN  B<n-1),  B<n),  ECn+l) 
INVERSE  OF  T  ABOVE  TO  SOLVE  FOR  C,  D  S-:  E. 

C2<1)=C,  C2<2)=D,  C2<3)=E  FOR  F2<EF);  C3<«)  FOR  F3. 
COEFFICIENTS  OF  C,  D  &  E  IN  I<n)  AND  Q<n) 


Nvar=10 

Mav=50 

Msout*1000 


NUMBER  OF  INPUT  VARIABLES 

MAXIMUM  AVERAGING  SPAN  <NAV).  MUST  AGREE  WITH  DIM 
OF  DBUF,WT. 

MAXIMUM  SCANS  OUT.  MUST  AGREE  WITH  DIM  OF  DOUT. 
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1100  Nvout=9  !  MAXIMUM  VARIABLES  OUT.  MUST  AGREE  WITH  DIM  OF  DOUT, 

1110  !  PHl.PLO.VAR* 

1120  Bad=0  !  FLAG  USED  FOR  BAD  DATA  OUT 

1130  ! 

1140  !  SETUP  FOR  MULTIPLE  INPUT  FILE  PROCESSING. 

1150  ! 

1160  DIM  Ifi1e#<100)  !  INPUT  FILE  NAMES 

1170  DIM  Ofne»<100>  !  OUTPUT  FILE  NAMES 

1180  DIM  Nav<100>  !  NUMBER  OF  SCANS  TO  AVERAGE 

1190  DIM  Nstep<100)  !  NUMBER  OF  SCANS  TO  STEP  THE  AVERAGES  BY;  USUALLY 

1200  !  AVERAGES  ARE  OVERLAPPED  50V.  OR  SO 

1210  DIM  Stri  ng$a00>  C803  !  CALIBRATION  CONSTANTS  FROM  THE  XCAL  FILE  FOR  EACH 

1220  !  FILE 

1230  DIM  Comment.. #a@0)t  160]  !  COMMENTS  FROM  EACH  INPUT  FILE. 

1240  ! 

1250  FOR  Fi le=l  TO  100 

1260  DISP  "INPUT  FILE  NO.  ";Fi]e;“?  <CLEAR  TO  TERMINATE?"; 

1270  EDIT  "  ",  If i le$<Fi 1e> 

1280  If  i  1e»=If  ne*<Fi  1e) 

1290  IF  LENafile$?=0  THEN  2070 

1300  ! 

1310  ASSIGN  #1  TO  Ifilef.Ret 

1320  IF  Ret=0  THEN  1350 

1330  DISP  "FILE  NOT  ON  PRESENT  DISC.  "; 

1340  GOTO  1260 

1350  ! 

1360  READ  #1 ; Comment  $ <F i 1 e) 

1370  ! 

1380  EDIT  "EDIT  COMMENTS", CommentfCFi ?e) 

1390  ! 

1400  INPUT  "NUMBER  OF  SCANS  IN  EACH  AVERAGING  WINDOW  ? " , Nay < F i 1 e > 

1410  Nav*Nav<Fne) 

1420  IF  Nau>May  THEN  1400  !  RESTRICT  NAV  TO  MAV 
1430  ! 

1440  INPUT  "STEPPING  INCREMENT?" , NstepCFII e) 

1450  Nstep=Nstep<Fi 1 e ? 

1460  ! 

1470  IF  LENCPf  i  le$>=0  THEN  Pfne$="XCAL  :T15" 

1480  EDIT  "EDIT  calibration  file  name.  (BLANK  TO  ENTER  CAL  BY  HAND > " , Pf i 1 e* 
1490  IF  LEN<Pf i le$?=0  THEN  1720 

1500  ! 

1510  INPUT  "XTVP  SERIAL  NO.  ?  (ZERO  TO  SEARCH  BY  DROP  NO.)", Serial 
1520  I. 

1530  IF  Serial=0  THEN  INPUT  "Drop  ID. ?" , Dropi d$ 

1540  ! 

1550  ASSIGN  #3  TO  Pfile#,Ret  !  ASSIGN  UNIT  NUMBER  TO  PARAMETER  FILE  NAME 

1560  IF  Ret<>0  THEN  1480  !  Ret  SHOULD  BE  0  IF  FILE  IS  THERE 

1570  READ  #3,1  !  REWIND  FILE 

1580  ON  END  #3  GOTO  1890  !  SET  UP  END  OF  FILE  TRAP 

1590  DISP  "READING  ";Pfile» 

1600  ! 

1610  !  READ  EACH  STRING  IN  THE  PARAMETER  FILE  SEARCHING  FOR  THE  DROP  ID 

1620  !  OR  SERIAL  NUMBER. 

1630  • 

1640  READ  #3;String# 

1650  IF  LEH(String*)<58  THEN  String»=Strino#S<RPT$( "  " ,  58-LEN(Str  i  ng$) ) 
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1660  IF  CSerialOe)  AND  <  VflL<  St  r  i  ngt  C8,  1 2  ]  )  =  Ser  i  a1  >  THEN  1720 

1670  IF  <:Seria1=0>  AND  CTRIMtCStr  i  ngf  144, 48]  >=TRIM*  CDropi  d*  J  >  THEN  1720 

1680  GOTO  1640 
1690  ! 

1700  !  EDIT/ENTER  THE  CALIBRATION  STRING.  THERE  MUST  BE  A  VALUE  IN  EACH  FIELD 

1710  ! 

1720  EDIT  "EDIT:  Probe  Mod  Gcc  Gcor  Gef  Eoco  Cwzo  Drop  Fh  F z " , S t 
r  i  ng# 

1730  GOTO  1830 

1740  ! 

1750  IF  ERRN=159  THEN  1870 

1760  DISP  ERRM* 

1770  PAUSE 

1780  GOTO  I860 

1790  ! 

1800  !  DECODE  THE  CALIBRATION  STRING  WITH  ERROR  CHECKING  AND  TRAPPING 
1810  !  TO  CHECK  THAT  IT  WILL  DECODE  WHILE  PROCESSING  WITHOUT  HALTING. 

1820  ! 

1830  ON  ERROR  GOTO  1750 

1840  ENTER  String#  USING  1850; Probe, Mod, Gcc , Gcor , Gef , Ef of , Ccof, Drop#, Fh, Fz 
1850  IMAGE  4,7X,4<5H>,6N,2<5H>,5A,2<5N> 

1860  OFF  ERROR 

1870  GOTO  1940 

1880  ! 

1890  BEEP 

1900  DISP  “CANNOT  FIND  THE  CALIBRATION  STRING. 

1910  WAIT  3000 

1920  GOTO  1230 

1930  ! 

1940  ASSIGN  #3  TO  *  !  UNASSIGN  UNIT  3;  PFILE#  IS  NOT  ASSIGNED. 

1950  St r i ng# < F i 1 e >=St r 1 ng# 

I960  ! 

1970  EDIT  "OUTPUT  FILE  NAME? " , Of il e# ( F i 1 e > 

1980  Of i 1e#=0f i le#<Fi le) 

1990  ! 

2000  IF  LENCOf i 1e#>=0  THEN  1940 

2010  ASSIGN  #2  TO  Ofile#,Ret  !  CHECK  TO  SEE  IF  OUTPUT  FILE  ALREADY  EXISTS; 

2020  IF  Ret=l  THEN  2050  !  FORCE  USER  TO  USE  AN0TH1R  NAME  IF  IT  DOES. 

2030  DISP  "ALREADY  EXSISTS  —  CHO0SE  ANOTHER  NAME"; 

2040  GOTO  1970 

2050  ! 

2060  NEXT  File  !  END  OF  PARAMETER  INPUT  *****«***#****#*#**#**#*#*^*** 

2070  ! 

2080  Nfile=File-l  !  NUMBER  OF  INPUT  FILES  TO  PROCESS 
2090  ! 

2100  !  CANNOT  USE  THE  9872A  PLOTTER  WITH  MULTIPLE  FILE  PROCESSING  BECAUSE 

2110  !  THERE  IS  NO  AUTOMATIC  PAPER  FEED. 

2120  ! 

2130  IF  Nfile>l  THEN  INPUT  "PLOTTER  ?  <0=NONE,  1=GRAPHICS,  3=9872S V , P 1 ot t 
2140  IF  Nfile=l  THEN  INPUT  "PLOTTER  ?  <0=NONE,  1=GRRPHICS,  2=9872A,  3=9872 
letter 

2150  IF  <:P1otter<0)  OR  <Plotter>3)  THEN  2130 
2160  IF  <Hfile>l)  AND  <Plotter=2)  THEN  2130 
2170  ! 

2180  !  ACTUAL  PROCESSING  STARTS  HERE  AND  REQUIRES  NO  MORE  OPERATOR  RESPONSES. 

2190  ! 
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2200 

2210 

2220 

2230 

2240 

2250 

2260 

22?0 

22S0 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 


FOR  Fne=l  TO  Nf ile 
Str  1  n9$  =  Stri  rig$<Fi  le) 

!  CflLIERflTION  CONSTANTS  DECODED  FOR  USE 

ENTER  Stringt  USING  1 850; Probe , Mod, Gc c , Gc or , Gef , Ef yf , Cc Mf , Dr  op# , Fh , Fz 


If i 1e#=If i le$<Fi le) 

Of  i  1  e#  =  Of  i  1  e$  <:  F  i  1  e) 

Na.v=N-av  ( F  i  1  e ) 

Nst ep=N£tep<F i 1 e> 

! 

ASSIGN  #1  TO  Ifile#  !  ASSUMES  IFILE#  IS  PRESENT  BECAUSE  CHECKED  BEFORE 
READ  #1,1 

READ  #1; Comment#  !  INPUT  DATA  IS  ONE  COMMENT#  STRING  FOLLOWED  BY 

!  DIGITAL  RECEIVER  DATA  NUMERIC  VALUES, 

REDIM  Dout<M£OUt,9>  !  SET  DOUT  TO  MAK  SIZE  AFTER  PREVIOUS  FILES  USE 

j 

ON  Mod-3  GOTO  2430,2480,2530 

!  PROBE  PHASE  FROM  CIRCUIT  ANALYSIS  DEPENDS  ON  MODEL  NUMBER. 

!  ART  BARTLETT  AT  W.H.O.I.  MADE  MOD  4. 

!  SIPPICAN  MANUFACTURED  MOD  5  ONLY  FOR  TOM  SANFORD  AT  W.H.O.I.  IN 
!  MAY  1979. 

!  SIPPICAN  MANUFACTURED  MOD  6  AFTER  JULY  1979. 


1 


I 


I 


Gefp=15.2  !  XTVP  MOD  4  < WHO  I  'BARTLETT-MADE > 

Gc  orp=- 165.1 
Gc  c  p=- 179.0 
GOTO  2680 

Gefp=10,9  !  XTVP  MOD  5  <S1PPICAN-MADE  FOR  AUTEC  WORK  ONLY) 

Gcorp=-169. 3 
Gccp=-177. 7 
GOTO  2680 


Gefp=15.2  !  XTVP  MOD  6  <SIPPICAN-MADE  AFTER  JULY  1979) 

Gcorp=-165. 1 
Gc  cp  =  -l 79 . 0 

I 

Gefp0=45, 77142872  !  QUADRATIC  FITS  VS  ROTATION  FREQUENCY 

Gefpl=-6. 29750005  !  DETERMINED  ANALYTICALLY  FOR  MOD  6  PROBES 

Gefp2=. 276785719 
! 

Gcorp0=-133. 4857151 
Geo rpl=-6. 5403571 
Gcorp2=. 29107141 
! 

Gccp0=-176. 0285726 
Gccpl=-. 5978569 
Gccp2=. 02499997 

!  CONVERT  TO  NEW  LINGO 

Gcora=Gcor 
Gc  c  a=Gc  c 
Gef a=Gef 
Geofa=Efof 
Gcofa*Ccvf 
Geof p=0 
Gc  Mf p=0 
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!  PROBE  PHYSICAL  PflRPMETERS 


2760  I 

2770  Esep=5. 12  Icm 
2780  Cl=.97 

2790  C2=-.02 

2800  ! 

2810  DflTfi  .00129299, .00023488, .980557E-7  !  CftL  FOR  SIPPICftM  THERMISTOR 

2820  RESTORE  2810 

2830  READ  Tecal a, Tecal b, Tecal c  !  PUT  REOVE  DATA  IN  TECALA,E,C 

2840  I 

2850  DATA  -11336.3,7302.0  !  TEMP  RESISTANCE  VS  MS 

2860  RESTORE  2850 

2870  READ  Teres0 , Teres  1  !  PUT  ABOVE  DATA  IN  TERES0, 1 

2880  ! 

2890  DATA  3 . 1 , 4 . 544 , - . 0006749  !  PRESSURE  VS  TIME  CAL 

2900  RESTORE  2390 

2910  REmD  Pcal0,Pca1 l,Pca12  !  PUT  ABOVE  DATA  IN  PCAL0,1,2 

2920  ! 

2930  !  RCVR  SCALE  FACTORS  FOR  EACH  FREQUENCY  CHANNEL: 

2940  ! 

2950  Sl=1^200  !  S1,S2,S3  ARE  INVERSE  OF  PHASE  LOCK  LOOP 

2960  S2=l/40  !  MULTIPLICATION  FACTORS. 

2970  S3=l.'20 

2980  ! 

2990  Sff2  =  2*PI  ■4*$2  !  SFF2,3  ARE  SCALE  FACTORS  TO  CONVERT  I  S,  Q 

3000  Sff3=2*PI.  4*S3  !  TO  THE  AMPLITUDE  OF  THE  FREQUENCY  DEVIATIONS. 

3010  ! 

3020  Sffe=Sff2  !  FOR  MOD  5  PROBES  F3  WAS  EF  AND  F2  WAS  CC 

3030  IF  Mod=5  THEN  Sffe=$ff3  !  FOR  ALL  OTHERS  F3=CC  ANC  F2=EF 

3040  ! 

3050  Sfy=100.  F2/Eser.''-'<  1+Cl  >  !  SCALE  FACTOR  OF  VELOCITY  FROM  EF 

3060  Sfw  =  Fh/Fz*<  l+C2>/<:  1+Cl )  !  SCALE  FACTOR  OF  Uw  FROM  W 

3070  Sf  a=  100/2 'PI-' Fh  !  SCALE  FACTOR  FOR  AREA  FROM  VC0/FREQ 

3080  ! 

3090  REDIM  Wt<Nav>  !  BARTLETT  WINDOW  FOR  FILTERING 

3100  FOR  1  =  1  TO  <Nav+l>  DIV  2  !  < TRIANGULAR  WINDOW,  SUM  NORMALIZED  TO  1.0;' 

3110  Wt.  <  I  )=Wt  <Nav+l-I  )  =  I 

3120  NEXT  I 

3130  MAT  Wt=Wt/<SUM(Wt >  ) 

3140  ! 

3150  Sync =30583  !  SYNC  WORD  EXPECTED  FROM  DIGITAL  RECEIVER 

3160  ! 

3170  Masiert  1  nie*  =  Comment$C  1 ,  183  !  REAL-TIME  WHEN  DXGET  WAS  RUN 

3180  I 

3190  Osc  an  =  I  sc  an  =  Nha'v<e  =  Fal  1  i  ng  =  T  i  rtie=Mast  er  t  i  nie=Launc  ht  i  me  =  0 

3200  ! 

3210  Nwant=Nau+2  '  WANT  THE  INPUT  BUFFER  TO  OVERLAP  A  VALUE  ON  EACH  END 

3220  ! 

3230  MAT  Dowt=<Bad>  !  INITIALIZE  THE  OUTPUT  DATA  ARRAY 

3240  t 

3250  DISP  "LOOKING  FOR  PF  ON" 

3260  I 

3270  Mainloop:  !  MAINLOOP 

3280  Npush=Nstep 

3290  Coll*="" 

3300  ! 

3310  Pushdoun: 


PUSHDOWN  DBUFC*;:'  BY  NSTEP  SCANS 


3320  REDIM  Dbuf < 1 : Nwant , 2: N^ar > 

3330  IF  Npush<Nhave  THEN  3360 

3340  Nha'^e=0 

3350  GOTO  Getmore 

3360  FOR  I=Npush+l  TO  Nha^J© 

3370  J=I-Npush 

3380  FOR  L*2  TO  N^ar 

3390  Dbuf<J,Li=Dbuf CI.L) 

3400  NEXT  L 

3410  NEXT  I 

3420  Nhave=NhaMe-Npush 

3430  ! 

3440  Getmore:  !  GETMORE  KEEPING  IN  SYNC. 

3450  !  ERRLY  VERSIONS  OF  THE  DIGITRL  RECEIVER  WOULD  GIVE  DRTR 

3460  !  TOO  FRST  FOR  DXGET  AND  THUS  WOULD  GET  OUT  OF  SYNC 

3470  RERD  #l;Din<*)  !  READ  ONE  INPUT  SCAN  AT  A  TIME  UNLESS  LOSE  SYNC 

3480  !  THEN  READ  ONE  VALUE  AT  A  TIME  UNTIL  SNYC'-'D  AGAIN 

3490  IF  ';Diri<2><>Svnc>  AND  <D  i  n<  1 1  )=Syric  >  THEN  3590 

3500  IF  lscari>0  THEN  PRINT  "LOST  SYNC  BEFORE  I  SCAN= " ;  I  sc  an 

3510  Din0=Din<2> 

3520  FOR  1=2  TO  Nvar 

3530  D i n < I ) =D i n ( I  + 1  ) 

3540  NEXT  I 

3550  READ  # 1 ; D i n < Noar+ 1 ) 

3560  IF  Din0<>Sync  THEN  3510 

3570  GOTO  3490 

3580  ! 

3590  Iscan=Iscan+l 

3600  Mast ert i me  =  Mast  ert i me  +  Di n<4 )»lE-5 

3610  !  PRINT  USING  " 1 1 < 7D ) " ; I  sc  an , D i n< * )  !  DEBUGGING  PRINT 

3620  !  TEST  STATUS  WORD 

3630  Status=Di n<2> 

3640  !  THE  NUMBER  OF  WORDS  TAKEN  IN  THE  LAST  SCAN  IS  ENCODED  IN  BITS  11-8 

3650  IF  <SHIFT''Status,8)<>Noar)  AND  <Iscan>l>  THEN  PRINT  "MISSED  SCAN'S.'.'  FROM 
DR  AT  ISCAN="; Iscan 

3660  !  BITS  2-0  INDICATE  IF  THE  CARRIERS  ARE  PRESENT  LIKE  THE  LIGHTS  ON  PANEL. 

3670  !  WHEN  THE  PROBE  IS  LAUNCHED  THE  CARRIERS  SHOULD  ALL  COME  ON 

3680  IF  Launchtime  OR  NOT  BI T < St  at  us , “ 1 1 1 " >  THEN  3740 
3690  Launcht 1 me=Mastert i me 

3700  CALL  Ad'dt  i  me  <  Mast  ert  i  me# ,  Launcht  i  me$ ,  Launc  ht  i  me  > 

3710  PRINT  ” LAUNCH-T I ME= ", Launcht i me#, Launcht i me , " I SCAN= " ; Iscan 

3720  !  BIT  3  OF  STATUS  SHOWS  THE  PF  LIGHT  ON  PANEL.  IT  IS  ON  WHEN  THE  CC 

3730  !  CHANNEL  DEVIATES  MORE  THAN  A  PRE-SET  THRESHHOLD. 

3740  IF  NOT  Falling  AND  CBIT'^Status,  3)=0>  THEN  Getmore 

3750  !  TRANSFER  FROM  DIN  TO  DUF 

3760  Nha'./e=Nhave+ 1 

3770  FOR  L  =  2  TO  N'./ar 

3780  Dbuf <Nhaue, L>=Di n<L> 

3790  NEXT  L 

3800  IF  Nhave<Nwant  THEN  Getmore 

3810  ! 

3820  REDIM  Dbuf < 0 : Nwani - 1 , 2 : Nuar ) 

3830  !  USE  PROBE  FALLING  <PF)  BIT  TO  START  AND  STOP  PROCESSING: 

3840  Npf-0  !  WANT  NPF=NAV  TO  START  PROCESSING 

3350  FOR  1=1  TO  Nau  !  ALLOW  NPF<NAV  TO  STOP  PROCESSING  WHEN  TIME>2O0  SEC 

3860  Npf=Npf+BIT<Dbuf <I,2),3> 
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3870  NEXT  I 

3880  IF  Falling  OR  <Npf=Na«.')  THEN  3910 

3890  Npush=l 

3900  GOTO  Pushdown 

3910  IF  <:Tiine>200)  FIND  CNptXNauJ  THEN  Endloop 

3920  IF  Npf=0  THEN  Endloop 

3930  IF  Falling  THEN  4000 

3940  Falling=l 

3950  Downt  i  niie  =  Mastert  i  me 

3980  CRLL  flddt  i  nie<Mastert  i  me#,  Downt  i  irie$,  Downt  i  me  > 

3970  PRINT  ■'DOWN-TIME=",Downtime$,Downt.  ime,  "ISCFIH=‘';  I  sc  an-Nwant  + 1 

3980  LISP  "PROCESSING  FILE  ";File;".  IFILE=" ; If 1 1 e#; " ,  OF  I LE= " ; Of i 1 e# 

3990  ! 

4000  !  COMPUTE  THE  ERROR  TERMS  IN  I  AND  Q  THEN  CORRECT  LEUF  FOR  NEW  SCFiNS 

4010  !  <THE  OLD  SCANS  WERE  CORRECTED  ALREADY  BECAUSE  DEUF  WAS  PUSHED  DOWN> 

4020  ! 

4030  Jl=Nhawe-Npu£h-l 

4040  IF  Oscan>0  THEN  4160 

4050  Jl=l 

4060  !  T1  =  T<n-1)  in  report 

4070  !  T2  =  T<n> 

4080  !  T3  =  T<n+1> 

4090  T1 l=Dbuf < Jl-1 , 4>*lE-5  !  Til  IS  T1 

4100  T12=T11«T11  !  T12  IS  T1  SQUARED 

4110  T13=T12*T11  !  T13  IS  T1  CUBED 

4120  T21=Dbuf < J1 , 4)*lE-5 

4130  T22=T21*T21 

4140  T23=T22*T21 

4150  D3=l/3 

4160  ..T2  =  Na'v' 

4170  FOR  J=J1  TO  J2 

4180  I=J-1 

4190  K=J+1 

4200  T31=Dbuf CK, 4)*lE-5 

4210  T32=T31*T31 

4220  T33=T52*T31 

4230  T<1,1)=T11  !  SET  UP  T<«>  TO  SOLVE  FOR  C,D,E  GIVEN  B1,B2,B 

4240  T<  1 , 2>=-.  5*T12  !  C,D,E  ARE  COMPUTED  IN  C2'::*)  AND  C3f*>  FOR 

4250  TC  1 , 3,)=D3*T13  !  EF  AND  CC  RESPECTIVELY. 

4260  T<2,1)=T21 

4270  T<2,2>=.5*T22 

4280  T<2, 3)=D3*T23 

4290  T<3,1>=T31 

4300  T<,3,2>=T21*T31  +  .5*T32 

4310  T<3, 3>=T22*T31+T21*T32+D3*T33 

4320  MAT  Tinv=INV<T) 

4330  B3< 1 >=Dbuf < I , 7) 

4340  B2<:  i:)=Dbuf  <  1 , 8> 

4350  B3<2>=:Dbuf  <  J,  7) 

4360  B2<2>*Dbuf ( J, 8) 

4370  B3<3)=Dbuf <K, 7) 

4380  B2<3>>Dbuf <K, 8) 

4390  MAT  C3«Tinu*B3  !  C3<*>=C,D,E  FOR  COIL  CHANNEL 

4400  MAT  C2*Tinu*B2  !  C2<*)-C,D,E  FOR  EF  CHANNEL 

4410  Tei <1>»T11-T21 

4420  Tei <2>*.25*T12-.5*T22 
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4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

ef 

4540 
J,  5> 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 


Tei  <3>=T13/-12-T23^3 
Teq<n  =  1.25*<Tll-T21) 

Teq<2)  =  <  17»T12-25*T22)-'32 
Teq<3>  =  <53*T13-125*T23>/'192 

Ei 3=D0TCTei , C3)  !  COMPUTE  I  RND  0  ERRORS  FOR  EF  AND  CC 

Ei 2=D0T<Tei , C2) 

Eq3=D0T<Teq, C3) 

Eq2=D0T<Teq,C2) 

!  debugging  printout 
IF  NOT  Debugging  THEN  4580 

IF  J=J1  THEN  PRINT  LIN<1>;"  ISCRN  STATUS  TEMP  PERIOD  Icc  I 
BLcc  BLef  Qcc  Qef" 

PRINT  USING  4550;  Isc  an-Nwant+J,  Dbuf  <  J,  2>  ,  Dbuf  ( J,  3>  ,  Dbuf  (  J,  4  ;' ,  Dbuf  < 
Dbuf  <  J,  6) ,  Dbuf  <  J,  7)  ,  Dbuf  <  J,  8>  ,  Dbuf  C  J,  9;' ,  Dbuf  <  J,  10> 

IMAGE  6D,9<7D> 

PRINT  USING  4570;Ei3,Ei2,Eq3,Eq2 

IMAGE  14X,"I  &  Q  ERRORS: ",7D,7D, 14K,7D,7D 
Dbuf < J, 5>=Dbuf < J, 5>-Ei 3  !  SUBTRACT  ERRORS  FROM  DBUF 

Dbuf < J, 6>=Dbuf < J, 6)-Ei2 
Dbuf C J, 9>=Dbuf < J, 9)-Eq3 
Dbuf CJ, 10)=Dbuf CJ, 10>-Eq2 
IF  NOT  Debugging  THEN  4650 

PR  I  NT  USING  4640 ;  Dbuf  <  J .  5  )  ,  Dbuf  <  J ,  6  > ,  Dbuf  ( J .  9  > ,  Dbuf  ■;  J ,  1 0  > 

IMAGE  13X,"I  &  0  results: ",7D,7D, 14X,7D,7D 
T11=T21  !  PUSH  DOWN  SOME  STUFF  TO  SPEED  PROCESSING 

T12=T22  !  INSTEAD  OF  RECOMPUTING 

T13=T23 
T21*T31 
T22=T32 
T23=T33 
NEXT  J 

! 

!  NORMALIZE  THE  DBUF  DATA  TO  GET  THE  FREQUENCY  AMPLITUDES  OF  THE  PROBE. 

!  APPLY  THE  BARTLETT  FILTERING  WINDOW  TO  DEUF<*>. 

j 

MAT  Dau=ZER 

Eis=Eis£=Eq£=Eqs£=0 

! 

FOR  J=1  TO  Nau 
Wt=Wt  < J) 

Tl=Dbuf <J-l,4>*lE-5 
T2=Dbuf <J,4>*lE-5 
Dt=Dbuf < J, 4>-Dbuf < J-1 , 4) 

Rf i=l/T2 

Rfq=l-'<  1 . 25»T2-.  25*T1 ) 

Wtri=Wt*Rf i 
Wt  rq=Wt  *Rf q 

Dau<3>=Dav<3>+Dbuf<J,3)*Wtri 
DaM<4>=Dau<4)+Dbuf<J,4)*Wt 
Dau<7)=Dau<7)+Dbuf < J, 7>*Wtr i 
Dau<8)=Dau<8)+Dbuf<J,8)*Wtri 
DavK5)=Dau<5)+Dbuf<J,5>*Wtri 
Da'.'<6)=Dau<6)+Dbuf<J,6)*Wtri 
Dau<9)=Dau(9)+Dbuf < J,9)*Wtrq 
Dav<:i0>=Dau<10>+Dbuf<J,10)*Wtrq 

!  SUMS  AND  SUMS  OF  SQUARES  TO  COMPUTE  RMS  ERR 
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4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 


IF  t1od*5  THEN  5050 
Ei=Dbuf<J,6)»Rfi 
Eq=Dbuf (J, 10)*Rfq 
Ei s=Ei s+Ei 
Ei  ss=E1  ss  +  Ei  ''2 
Eqs=Eq£+Eq 
Eq££  =  Eqss+Eq''2 
GOTO  5110 
Ei=Dbuf <J,5)*Rf i 
Eq=Dbuf < J,9>*Rfq 
Ei  s=Ei s  +  Ei 
Ei  ss=Ei  ss+Ei  '■2 
Eqs=Eqs+Eq 
Eqss=Eqs£+Eq"'2 

I 

NEXT  J 

!  ROTATION  FREQ  ANH  PERIOD 

Rotp=Da<»'(4)*lE-5 
Rotf=l'^Rotp 

!  TIME  IS  COMPUTED  BY  SUMMING  ALL  THE  PERIODS  SINCE  THE  PROBE  STARTED  DONH 
IF  Oscan=0  THEN  T  i  frie=Rot  p*  < Nsm^ 2-Nst  ep > 

Titiiie  =  Time  +  Nstep*Rotp 

!  PROBE  CARRIER  FREQUENCIES 

Flb=Daw<:3>*Sl 
F2i  =Day':6>*Sff2 
F2q=Day< 10)*Sff2 
F2b=DaM‘:8>«S2 
F  3 i =  D  av (5)*Sff3 
F3q=Dav  <  9  >  *Sf f 3 
F3b=DaM<7)*S3 

!  PUT  CARRIER  FREQ’S  IN  PROPER  VARIABLES 

IF  Mod=5  THEN  5360 
Fcci=F3i 
Fc  c  q=F3q 
Fccb=F3b 
Fef i =F2i 
Fefq=F2q 
Fefb=F2b 
GOTO  5420 
Fcci=F2i 
Fccq=F2q 
Fccb*F2b 
Fef i *F3i 
Fef q=F3q 
Fefb*F3b 

!  TEMPERATURE 

Tems=1000.'Flb  !  PERIOD  IN  MILLISECONDS  OF  TEMPERATURE  CARRIER 

Teres=Tere£0+Teresl*Tems  !  THERMISTOR  RESISTANCE 
IF  Teres>0  THEN  5480 
Temp-Bad 
GOTO  5560 
Lri*LOG<’Tere£) 

Temp=l /CTecal  a+Tecal  b*Ln+TecaI  c*Lri’^3)-273.  1 5  !  DEGREES  C 

!  PROBE  PHASES  VS  ROTATION  FREQ  USING  QUADRATIC  ESTIMATES 

Rl*Rotf 
R2«Rotf '■2 
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5530 
5540 
5550 
5560  ! 

5570 
5580 
5590 
5600  ! 

5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720  ! 

5730 
5740 
5750 
5760  ! 

5770 
5780  ! 

5790 
5800  ! 

5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880  ! 

5890 
5900 
S  f  V  > 
5910 
5920  ! 

5930 
5940 


Gefp=Gefp0+Gefpl*Rl+Gefp2*R2 

Gcorp=Gcorp0+Gcorpl*Rl+Gcorp2*R2 

Gccp=Gccp0+Gccpl*Rl+Gccp2*R2 

COIL  MICROVOLTS 

CALL  Po1ar<-Fccq,-Fcci ,Fcca,Fccp) 

Vc0a=Fcca/Gcvfa^Gcca*lE6  !  Eca  in  report 
Vc0p=Fccp-Gcyfp-Gccp  !  Ecp  in  report 

ELECTRODE  MICROVOLTS 

CRLL  Polar<-Fefq,-Fefi ,Fefa,Fefp> 

VeOal  =Fef  a/Geof  a-'Gef  a*  1 E6 

Ve0pl =Fefp-Gevf p-Gefp 

CftLL  Rect<Ve0al,Ve0pl,Ve0ql,Ve0i 1> 

Ve0a2=Fcca-'Gc'v>f  a^Gcca*Gcora^Gef  a*lE6 
Ve0p2=Fccp-Gcofp-Gccp+Gcorp-Gefp 
CALL  Rec t  <  Ve0a2, Ve0p2 , Ve0q2,  Ve0i  2> 

Ve0q=Ve0ql-Ve0q2 
Ve0i=Ve0i 1-Ve0i2 

CALL  Pol ar<Ve0q, Ve0i , Ve0a, Ve0p>  !  Ve0a  is  Eea  in  report 

!  Ve0p  is  Eep  in  report 

FALL  RATE,  PRESSURE,  2  =  -PRESSIJPE 

Us- 1 OO* ( Pc al 1 +2*Pc a1 2*T i me >  \  emper i c al 1 y  determined  pressure  us  time 

P  =  Pcal0+Time*'.'Pcall+Time*Pcal2> 

2  =  -P 

AREA  OF  COIL  TIMES  TURNS  ■■■: c m" 2 > 

Area=Vc0a  'Rot  feSfa 

PHASE  OF  ZERO  CROSSING  DETECTOR  circuit 
Zcdp=-90-Fccp 

VELOCITY  COMPENSATION 

Uw=W*Sfw  !  LIKE  EMVP  REPORT 


Betae=-Ve0p  !  Ve0p  and  VcOp  phases  haue  signs  so  if  the  signal  leads 

Eetac=-Vc0p  !  the  phases  are  positiue.  Eetae  and  Eetac  are  opposite. 

Alpha* 180  !  angle  from  electrode  to  coil 

Ps i =Bet ae-Eet ac +90+A 1 pha  !  see  EMVP  report 
U=Ve0a*Sfu*COS<Psi ) 

V  =  -Ve0a*Sfu*SIN<Psi  >+Uw 

Sfef=lE6/Gefa''Ge'v»fa 

Rmser  r  =  S0R  < .  5*  <  E  i  sS'-'Nau-  <E  i  s  '  Nau  '<  ''-Z  +  Eqss  'Nau  -  <  Eqs  '’  Nau  >  "-Z  >  >  *AES  •;  Sf  f  e*Sf  ef 


5910  Ve 1 err=Rmser r ^SQR < Nau )  !  normalize  rmserr 

5920  !  PRINT 

5930  IF  Debugging  OR  COscan  MOD  20=0)  THEN  PRINT  USING  5940 

5940  IMAGE  "  Z  Temp  U  V  W  Rotf  Area  Uw  Vc0a  2c dp  Ve0a  VeOp 

Fefb  Fccb  Ver" 

5950  PRINT  USING  5960; Z , Temp , U , V, W, Rot f , Area, Uw , Vc 0a, Zc dp , VeOa, Ve0p , Fefb , Fc c b 
, Ve 1  err 

5960  IMAGE  4D,3D.2D,2  <4D.  D) ,  5D,  2D. 2D, SCSD) , 3D. D, 3D. 2D, 4D. D, 2<5D) , 2D. D 
5970  ! 

5980  0scan=0scan+l 

5990  Dout <0scan, 1 )=Z  !  STORE  IN  OUTPUT  ARRAYS 

6000  Dout (Oscan, 2>=Temp 

6010  Dout (Oscan, 3>=U 

6020  Dout (Oscan, 4)=V 

6030  Dout (Oscan, 5)=Area 

6040  Dout (Oscan, 6)=Rotf 

6050  Dout (Oscan, 7)*Fefb 


0scan=0scan+l 
Dout (Oscan, 1 )=Z 
Dout (Oscan, 2>=Temp 
Dout(0scan,3>=U 
Dout (Oscan, 4)=V 
Dout (Oscan, 5)=Area 
Dout (Oscan, 6)=Rotf 
Dout (Oscan, 7)*Fefb 


!  STORE  IN  OUTPUT  ARRAYS 
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6660  Dout <Oscan, 8)=Fccb 

6070  Dout <Osc an, 9)*Vel err 

6080  ! 

6090  IF  Oscan<Msout  THEN  Mainloop 
6100  ! 

6110  Endloop:  ! 

6120  ! 

6130  Nsout=0scan-3 

6140  REDIM  Dout <N£OUt , Nvout ) 

6150  ! 

6160  !  CORRECT  FOR  NORTH-SOUTH  TILTS  fi  Lfl  D''flSFlRO 

6170  Vel  errf(iax=4 

6180  Na^e 

6190  flmean=0 

6200  FOR  0£can=l  TO  Nsout 

6210  Vel  err=Dciut  <0£can,  9) 

6220  IF  Ve 1  err >Ve 1 errmax  THEN  6260 

6230  flrea=Dout fOscan, 5> 

6240  fimean=flmean+flrea 

6250  Na-Na-fl 

6260  NEXT  Oscan 

6270  ! 

6280  ftmean=fimean/Na 

6290  PRINT  USING  " K ,  5D ,  K "  ;  “ MEAN  flREft=  "  ,  fttnean ,  "  cm '2" 

6300  ! 

6310  FOR  Oscanal  TO  Nsout 

6320  Rotf«Dout <0scan, 6) 

6330  Rot  p^l^'Rotf 

6340  IF  Oscan*l  THEN  Ti meaRotp^CNaM'^-Nstep) 

6350  Ti Me=Ti me+Nstep*Rotp 

6360  W=-100*<Pcal l+2*Pca1 2*Ti me> 

6370  ftrea=Dout <0scan,5) 

6380  Vcor=W*Sfw*<fireaxflmean-l ) 

6390  V=Dout  <0scar(,  4) 

6400  V=V+Vcor 

6410  Dout  <0scari,  4)=V 

6420  !  PRINT  USING  " K , DDD . D , K , DDD . D " ; " VC0R  =  " , Vc or , " V= "  ;  V 

6430  NEXT  Oscan 

6440  ! 

6450  DATA  "Z” T ", "U V ", "AREA ", "FREQ" , "EF  BL","CC  EL " , " VELERR " 

6460  RESTORE  6450 

6470  READ  Var*(*) 

6480  ! 

6490  IF  LEN<0f i 1e$>=0  THEN  6680 

6500  !  compute  number  of  records  to  create  file  to  hold  data. 

6510  L  =  LEN<Dropf)+8+LEN<Downtime4>+8+LEN<Lat*)  +  S+LEN';Long#>+8 

6520  L=L+LEN<Comment f )  +  8+LEN<Progreuf )+8+LEN< I f 1 1 e$  >+8+LEN<Runt i met >  +8 

6530  L*L+8*4+8*ll 

6540  FOR  I«1  TO  R0W<Var») 

6550  L«L+LEN<Vart(I))+8 

6560  NEXT  I 

6570  L»L+4*R0W<Dout )*C0L<Dout ) 

6580  Nrec«Lx256  DIV  1+1 

6590  ! 

6600  CREATE  0fj1et,Nrec  !  standard  xtvp  data  format 

6610  ASSIGN  Of i let  TO  «2 

6620  PRINT  #2; Dr opt , Downt i met , Lat t , Longt , Comment t, Progreut , If i 1 et , Runt i met 
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6636 

6646 

6656 

6666 

6676 

6686 

6696 

6766 

6716 

6726 

6736 

6746 

6756 

6766 

6776 

6786 

6796 

6866 

6816 

6826 

6836 

6846 

6856 

6866 

6870 

6886 

6896 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7066 

7070 

7080 

7090 

7160 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 


I 


I 


PRINT  «2;N^;out,Nsout,Bad,  11 

PRINT  #2; Naw, Nstep, Probe, Mod, Gcc , Gcor, Gef , Efyf , Cc vf , Fh, Pz 
PRINT  #2; Var$<*), Dout <*) 

PRINT  #2;END 
fiSSIGN  #2  TO  * 


DATA 

DATA 


-1000, 

0, 


. . .  0,-30, -30,  700,  6,4000,2000, 

DATA  6,  28,  40,  40,1400,9.5,5006,3606, 

IF  Mod<>5  THEN  RESTORE  6690 
IF  Mod*5  THEN  RESTORE  6710 
READ  PI o<*) ,Phi <*) 


plotting  £C  a1 e  s 


!  SETUP  PLOTTER  FOR  7  WIDE  EY  10  HIGH 

ON  Plotter+1  GOTO  8340,6796,6840,6890 

I 


PLOTTER  IS  "GRAPHICS" 

LIMIT  0,7*25. 4, 0,5*25. 4 

GRAPHICS 

GOTO  6930 

!  SETUP  9872A 

IF  Fne=l  THEN  PLOTTER  IS  "9872A" 

LIMIT  600 '40, 7730' 40, 280  40, 10440'40 

FRAME 

GOTO  6930 

!  SETUP  9872S 

IF  Fn#«l  THEN  PLOTTER  IS  "9872A" 

LIMIT  600/40.  •^730/40,  1060 '40,  1  1228  46 
FRAME 


Nhal f»l 

IF  Plotter*!  THEN  Nha1f*2 
FOR  Ha1f*l  TO  Nhalf 

IF  <P1ofter*l>  AND  (Half*!)  THEN  7310 
LINE  TYPE  1 
PEN  1 
SETGU 

Xgdui»ax*100*MAX(  1 ,  RATIO) 

MOVE  Xgdunia/-25, 60 

IF  Plotter*!  THEN  MOVE  Xgdumax-45 , 97 
CSI2E  3 

IF  Plotter*!  THEN  CSI2E  3.89 
LABEL  USING  "K" ; "PROG*" ; Progrev* 
LABEL  USING  " K " ; " I F I LE- " ; I f i 1 e» 

LABEL  USING  " K " ; " OF ILE* " ; Of i 1 e$ 


CSIZE  2 
IF  PI  ot  t  er  •  1 
LABEL  USING  ' 


LABEL 

LABEL 

LABEL 

LABEL 

LABEL 

LABEL 

LABEL 


USING 

USING 

USING 

USING 

USING 

USING 

USING 


then  CSIZE  3.89 


K  " 
K" 
K" 
K" 
K" 

k  " 
K" 


Runt i Mef 
"NAV*";Nau 
"NSTEP*";N»t 
“XTVP  S/N*"; 
"XT VP  MOD*"; 
"CCC*";Ccc 
"GCOR*"; Gcor 
"GEF*";Cef 


•  P 

Probe 

Mod 
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7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

1) 

7690 

/2 

7700 

7710 

7720 

7730 

7740 


LftBEL  USING  "K” ; "EVCO-" ; Ef vf 
LfiBEL  USING  "K“ ; "CVCOs" ; Cc vf 
LABEL  USING  "K“ ; "FH-" ; Fh 
LABEL  USING  “K" ; “FZ*" ; Fz 

PLOT  EACH  VARIABLE 

Cs i ze=2 

IF  Plotter=l  THEN  Csize=3.89 
CSIZE  Csize 

LABEL  USING  "5A, 2<5D. D) " ; Var^C 1) , PI oC 1 > , Phi  a > 

NHERE  X1ab,Y1ab 


FOR  Var=2  TO  Nvout 
Peri=MIN(Var-l ,  4> 

IF  Var=9  THEN  Pen=l 
IF  NOT  Pub  THEN  PEN  Pen 
IF  Pub  THEN  PEN  1 
! 

IF  <P1otter=l)  AND  <Ha1f=l)  THEN  7440 

LINE  TYPE  1 

SETGU 

MOVE  Xlab.Ylab 

LABEL  USING  " 5A , 2 < 5D . D ) " ; Var f  C  Var  > , P 1 c ( Var ) , Ph  H  Var ) 

HHERE  X1ab,V1ab 
! 

LINE  TYPE  1 
IF  NOT  Pub  THEN  7570 
PEN  1 

IF  Var=2  THEN  LINE  TYPE  4,4 
IF  Var*3  THEN  LINE  TYPE  4,1 
IF  Var=4  THEN  LINE  TYPE  4,2 
IF  Var=5  THEN  LINE  TYPE  7,2 
IF  Var=6  THEN  LINE  TYPE  5,2 
IF  Var=7  THEN  LINE  TYPE  7,4 
IF  Var=8  THEN  LINE  TYPE  8,4 
IF  Var=9  THEN  LINE  TYPE  1 
GOTO  7610 

IF  <Plot.ter=l>  AND  <Var  =  4)  THEN  LINE  TYPE  3 
IF  Var=6  THEN  LINE  TYPE  5,1 
IF  Var=7  THEN  LINE  TYPE  5,2 
IF  Var=8  THEN  LINE  TYPE  5,3 

IF  <:Plotter=l)  AND  <Ha1f  =  l>  THEN  7660 
MOVE  X 1 ab, Y1 ab+. 8*Cs i ze 
DRAW  XI ab+ 1 1 *051 ze, Y 1 ab+. 8*Csi ze 
Y1 ab=Y1 ab-. 2*Csi ze 
! 

SCALE  Plo<Var>,Phi < Var ) , P 1 o< 1 ) , Phi <1> 

IF  <P1otter»l)  AND  <Half=l)  THEN  SCALE  PI o( Var > , Phi < Var > , PI cC 

IF  <Plotter=l>  AND  <Ha1f=2>  THEN  SCALE  PI o<Var > ,  Phi CVar > ,  PI o< 

!  PLOT  THE  DATA 

P*-2 

FOR  I«1  TO  Nsout 
D»Dout ( I, Var) 

IF  DOBad  THEN  7770 


1 )  -  Phi C 
1  > ,  P 1  o  •:  1  > 
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7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 


P=-2 

GOTO  7810 


2=Douta,  1) 

PLOT  D,2,P 
P=-l 
NEXT  I 
SETGU 

MOVE  130,0 
NEXT  Var 

IF  PlotterOl  THEN  8070 
PEN  1 

SCRLE  0, 1,0,  1 
IF  HalfOl  THEN  7930 

MOVE  0,0  !  PflRTIRL  FRfiMES 

DRRN  0, 1 
DRRU  1,1 
DRRM  1,0 

IF  Half<>2  THEN  8030 
MOVE  0,  1 
CRRU  0,0 
DRRN  1,0 
ORRU  1,1 
! 

SETGU 
MOVE  1,1 
PEN  1 

LRBEL  USING  " K Comment  $ 

! 

SCRLE  0, 1,0, 1 
DUMP  GRRPHICS  0, 1 
GCLERR 
NEXT  Half 
! 

CSIZE  Csize 

IF  PIotter=l  THEN  8150 
SETGU 
MOVE  1,1 
PEN  1 

LRBEL  USING  "K"; Comment* 

MOVE  100,0 
PEN  0 

! 

IF  PJotterOl  THEN  8240 
EXIT  GRRPHICS 
PRINTER  IS  0 

PRINT  PRGE;  !  TOP  OF  FORM  ON  PRINTER 

PRINTER  IS  Printer 
IF  Plotter<>3  THEN  8270 

OUTPUT  705; "EC"  !  enable  cutter  on  9872S 

OUTPUT  705; "RH"  !  advance  half  page  on  9872S 

IF  Nfi1e>l  THEN  8340 

!  ONLY  EXECUTE  THE  FOLLOWING  CODE  IF  NFILE=1 

FOR  V*1  TO  Nvout  !  allow  different  plot  scales 
DISP  Var*':V);PIo(V);Phi  <V); 

INPUT  "ENTER  NEW  PLOT  LIMITS:  PLO,  PH  I" , P 1 o< V >, Ph i < V > 
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I 


I 


8320  NEXT  V 
8330  GOTO  6770 
8340  NEXT  Fi Ic 
8350  DISP  "FINISHEII" 

8360  STOP 
8370  ! 

8380  !  ****************************************************************** 

8390  DEF  FNfltan2(:Y,X)  !  FN  ftTflN2<V,X>  four  quadrant  arc -t  argent 

8400  DEG 

8410  IF  X*0  THEN  Vert 
8420  flng  =  fiTN<Y.''X) 

8430  IF  X>0  THEN  RETURN  flng 

8440  IF  Y<0  THEN  Q3 

8450  ftng=fing+180 

8460  RETURN  flng 

8470  03:  flng=flng-180 

8480  RETURN  flng 

8490  Vert:  IF  Y<0  THEN  Down 

8500  flng=90 

8510  RETURN  flng 

8520  Down:  flng=-90 

8530  RETURN  flng 

8540  FNEND 

8550  !  ***#**********«**«**»*♦*****«*********«»****«**«*****»*******«*«***■►# 

8560  SUE  I nt  erp < H  i  n ,  Nout ,  Bad ,  Dzout ,  SHORT  P 1  n< ,  D  i  n<  *  > ,  Dou  ( *  >  > 

8570  SUBEND 

8580  !  ****************#**********^**********************************‘!ir****^ 

8590  SUE  flddt  i  me  <Mastert  i  me* ,  flddt  1  tne$,  flddsec s) 

8600  ENTER  Mastertime*  USING  4<NN, X) , NN" ; Mo, Da, Hr , Mn, Sc 
8610  Sc=Sc+flddsec£ 

8620  Mn=Mn+Sc  DIV  60 
8630  Sc=Sc  MOD  60 
8640  Hr=Hr+Mn  DIV  60 
8650  Mn=Mn  MOD  60 
8660  Da=Da+Hr  DIV  24 
8670  Hr=Hr  MOD  24 

8680  OUTPUT  flddtime*  USING  8690; Mo, Da, Hr, Mn, Sc 
8690  IMAGE  #, 4 < Z2 ZZ 
8700  SUBEND 

8710  !  *«****♦***«***♦*♦************#****♦«**»**»*****#»********♦**»** 

8720  SUB  Pol  art  X, Y, flmp, flng)  !  rectangular  to  polar  conversion 
8730  DEG 

8740  flmp=SQR<X'-2+Y''2> 

8750  IF  XO0  THEN  flng*flTN<Y^X) 

8760  IF  tX<0>  AND  <Y<0)  THEN  flng=flng-180 
8770  IF  <X<0)  AND  <Y>=0)  THEN  flng=flng+180 
8780  IF  <X=0>  AND  <Y>0>  THEN  flng=90 
8790  IF  <X=0)  AND  <Y<0)  THEN  flng=-90 
8800  SUBEND 

8810  !  »#**»**»**#**♦**»*»»♦*»**»******«**********«***************« 

8820  SUB  Rect tflmp, flng, X, Y)  !  polar  to  rectangular  conversion 
8830  DEG 

8840  X=flmp#COS<flng) 

8850  Y»fltnp*SIN<flng) 

8860  SUBEND 

8870  !  **♦#***************»****♦***#♦***»*****»»****«**♦***«******* 
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Program  SPLOT,  Sample  Run 


SPLOT  produces  a  series  of  plots  of  XTVP  profiles.  Many  features 
are  availcd^le.  One  can  fit  each  profile  to  a  polynomial  and  rotate  the 
profile  based  on  its  time  and  inertial  period.  One  can  plot  the  fit  or 
the  profile  minus  the  fit. 

The  following  example  shows  the  program  prompts,  operator  entries 
and  program  responses  for  a  typical  run  of  plotting,  in  Cartesian  coordi¬ 
nates,  the  rotated  residues  of  quadratic  fits  to  each  of  four  profiles. 


SPLOTO  RUN  DfiTE  TIME  =  Sl:04:0'=i:22:55:56 

VARIABLE  NAMES  USED  ARE  U,V 
VELOCITY  ERROR  LIMIT=  2 

DATA  FITTED  TO  A  POLYNOMIAL  OF  DEGREE  2 
PLOT  THE  RESIDUE 
PLOTS  ARE  CARTESIAN 

THE  RESIDUE  PROFILES  WERE  ROTATED  BASED  ON  REF.  TIME  OF  0  hr  0  ffiin 
FOR  A  ROTATION  PERIOD  OF  13.4083046171 
ROTATED  TO  00:00 

A  PLOT  OF  THE  RESIDUE  WAS  MADE  USING  PEN  #1 
PLOT  IS  LABELLED. 

INPUT  DATA  IS  PROCESSED. 

TIC  SIZE  =  17.78  mm 


PLOT  WILL 

BE  266.7  mm  10.5 

in  WIDE  AND 

177.8 

m  m 

FILE  NO. 

FILE  NAME  TIME 

HR  MIN 

U,V  OFF 

SETS 

1 

539P 

00 : 32 

4.0 

4.0 

2 

542P 

01:29 

4. 0 

4.0 

3 

543P 

01:56 

4.0 

4.0 

4 

544P 

02:23 

4.0 

4.0 

TOP  0  m  OF 

PROFILES  ZAPPED 

PLOT  MADE 

81:04:09:22:58:59 

1  FILE  NAME=539P 

539 

12:02:0, 

2:35:50 

12:02:02:35:42  XTVP  538  PLAYBACK  FAEROES  PAT 
CREATED  BY  DXPROW  FROM  FILE  539R,  ON  80:12:04:17:39:41 

AVERAGE  FIT.  NBL0CK:S=  30  A=  31.1841502298  -.28223036716  4 . 97020250700E-04 
AVERAGE  FIT.  NBLOCKS=  30  A=  -9.659564307  -.06076936805  2 . 269208 1 9670E-04 
INPUT  FILE, VARIABLE, NO.  OF  GOOD  PTS , AVE . , STD .  DEV.  BASED  ON  GOOD  PTS 
539P  U  COMP  295  .143  3.921 

539P  V  COMP  295  .072  3.788 

2  FILE  NAME=542P 

542  12:02:18:42:02 
12:02:18:41:56  XTVP  542  PLAYBACK  FAEROES  PAT 
CREATED  BY  DXPROW  FROM  FILE  542R,  ON  80:12:04:18:40:10 

AVERAGE  FIT.  NBL0CKS=  30  A=  23.6964354786  -.22058932126  3 . 609 1 6726720E-04 

AVERAGE  FIT.  NBLOCKS=  30  A=  -9.2035525367  -.05074011791  2 . 38360 1 8S330E-04 

542P  U  COMP  279  .162  3.243 

542P  V  COMP  279  .041  4.564 

3  FILE  NAME*543P 

543  12:02:18:49:36 
12:02:18:49:31  XTVP  543  PLAYBACK  FAEROES  PAT 
CREATED  BY  DXPROW  FROM  FILE  543R,  ON  80:12:04:18:40:10 

AVERAGE  FIT.  NBLOCKS=  30  A=  21.7290090277  -.218441803637  4 . 432 1 3723550E-04 

AVERAGE  FIT.  MBLOCKS=  30  A=  -14.0859444811  .06392939153  -1.486375700706-04 


543P  U  COMP  280  .035 

543P  V  COMP  280  . 142 

4  FILE  NflME=544P 
544  12:02:19:00:11 

12:02:19:00:06  XTVP  544  playback  FAEROES  PAT 
CREATED  BY  DXPROW  FROM  FILE  544R,  ON  80:12:04:18:40:10 
AVERAGE  FIT.  NBLOCKS=  30  A=  31.332172827  -.34130695143 
AVERAGE  FIT.  NBLOCKS=  30  A=  -20.1443709546  .1250602027 
544P  U  COMP  283  -.106  4.867 

544P  V  COMP  283  -.037  3.698 


1.613 

3.508 


4130695143  7. 0431 5634400E-04 
1250602027  -3. 00207033690E-04 
4 . 867 
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Program  Listing  of  SPLOT 

Pr  ogreo»="SPL0T0" 

Year=81 

SPLOT  :  SERIES  PLOT  BY  TOM  SANFORD  MODIFICATIONS  BY  JOHN  DUNLAP 
THIS  PROGRAM  ALLOWS  FILES  TO  EE  REQUESTED  WHICH  ARE  ON 
SEPARATE  DISKS  AND  PLOTTED  WITH  OFFSETS  FOR  Q<U>  AND  I<V>. 

SPLOTC  ALLOWS  POLYNOMIAL  FIT  AND  RESIDUES  TO  BE  PLOTTED. 

SPLOTC  ALLOWS  THE  PROFILES  TO  BE  ROTATED  CCW 

SPLOTC  ALLOWS  THE  RESIDUE  PROFILES  TO  BE  PLOTTED  IN  POLAR  FORM 
SPLOTE  ALLOWS  FOR  VARIOUS  VARIABLE  POSITIONS  IN  FILE.  SEARCHES  NVUtC*). 
SPLOTF  GRAPHICS  CRT  OR  HP-9872A.  QUICKER  POLYNOMIAL  PLOTTING.  JHD. 
SPLOTG  NOV  28  79.  FIXED  ERROR  IN  VARIABLE  NAME  SEARCH.  JHD. 

SPLOTH  JAN  23  80.  SPECIAL  NSCAN=500  TO  ALLOW  FOR  ERROR  IN  FRONTS  DXPROG 
SPLOTI  MAY  7  80.  FOR  NEW  XTVP  FORMAT..  NOT  RIGHT  YET.  JHD. 

SPLOT J  ...  ERIC  KUN2E  FIXED  FROM  SPLOTI. 

SPLOTM  ...  ALSO  ROTATES  THE  FITS.  RECEIVED  FROM  ERIC  KUNZE  AS  FITPRO. 
SPLOTH  ...  MODIFIED  TO  MAKE  VIEW  GRAPHS  OF  WENSTRANDS  8  WITH  OUR  191,... 
SPLOTO  ...  APR  8  81,  FIXED  INPUT  STATEMENTS  TO  CHECK  PARAMETERS. 


SPLOT  accepts  st andar d-f or  mat  processed  XTVP  files  for  some  specialized 
processing  and  then  plotting  to  assist  scientific  analysis.  It  will  plot 
several  profiles  with  the  same  processing  on  the  same  page  for  easy 
compar i son. 

Usually  the  profiles  are  fit  to  a  low-degree  polynomial 
to  remove  the  low  wave-number  components.  The  fits  or  residuals 
are  then  plotted  instead. 

The  residuals  can  be  rotated  to  a  common  time  according  to  the 
local  inertial  period  <12  hours  divided  by  the  sine  of  the  latitude). 

This  allows  one  to  attempt  to  view  a  time  series  or  section  as  if  it 
had  oc cured  instantaneously. 

Cartesian  or  polar  plots  are  available  as  are  various  plotters. 


overlays  of  fits  on  data. 


One  specifies  the  following  parameters  with  defaults  in  <). 

.  variable  names  <U,V)  for  processing. 

.  velocity  error  limit  <2  cm-s)  for  use  in  eliminating  noisey  data. 

.  degree  of  polynomial  fit  <0>. 

.  plot  residues  or  fits  <R>. 

.  cartesian  or  polar  plots  <C>. 

.  whether  or  not  to  rotate  the  plots  <H). 

.  pen  number  to  use  <0). 

.  whether  to  label  the  plot  <Y).  Don't  label  overlays  of  fits  on  data. 

.  tic  size  <25.4mnf>,  the  plots  are  10  cm^s/tic  and  200m/tic.  The 
default  tic  size  is  for  15  by  10  inch  paper.  To  use  the  10  by  7 
inch  paper  use  a  tic  size  of  25. 4»7.'10=17. 78.  When  using  the  GRAPHICS 
plotter  the  tic  size  is  adjusted  to  fit  exactly. 

.  size  of  paper  in  tics.  <15,10). 

.  size  of  paper  in  inches  -  user  can  choose  three  types.  Position 
view  graphs  up  from  the  bottom  somewhat. 

.  file  names  until  a  blank  name. 

.  if  rotating  then  input  the  time  of  the  profile. 

.  offsets  for  each  component  <4,4  tics).  This  is  in  addition  to  the 
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normal  incrementing  of  two  tics  to  the  right  for  each  profile.  Use 
the  default  ual ue  of  4,4  the  first  time  through  and  refine  it  later. 
.  specify  the  amount  at  the  top  of  all  profiles  to  zap  in  meters. 

now  the  program  should  continue  by  itself  and  print  each  drop  header  as 
they  are  read  from  mass  storage.  If  a  file  cannot  be  found  then  the 
program  will  prompt  for  another  disc  or  tape.  Plots  are  drawn  as  the 
data  is  processed. 


PRINTER  IS  0 
OPTION  BfiSE  1 
OVERLAP 
STANDARD 
DEO 

DIM  F i 1 e* < 1 6  > , Of f qu a  6  > , Off i v < 1 6 > 

DIM  Comment ♦ C 1 60 1 , Rms 1 abe 1 1 C  80 1 ,  How ( 5  > 

DIM  Par  am  <  1 00 ,  Nou$  <  9  >  ,  A  4  > ,  Drot  <  5  >  ,  Thr  C  1 6  )  ,  Tm  i  n  1 6  > 

SHORT  F<4,500>,Fau<4,50> 

SHORT  Wau<50),Dav<50,4> 

SHORT  D<500, 9> ,  U<500>  ,  Res  i  due  <500:;' 

!  PRINT  PAGE 
MAT  W=C0N 
OUTPUT  9; "R" 

ENTER  9;R* 

R$»VAL$<Year>a.‘':  "tR* 

PRINT  Progreut, "RUN  DATE/ T IME=" ; R$ 

DIM  Var$<3:4) 

IF  LEN<Var$<3>  )=0  THEN  Var  $<3:)  =  "U" 

IF  LEN<Var$<4> >=0  THEN  Vart<4>=“V" 

DISP  "VARIABLE  NAMES  <:DEFAULT=  "  ;  Var  t  <  3  >  ;  "  ,  "  ;  Var  $  C  4 ) ;  "  )  "  ; 

INPUT  Var$(3) , Var$<4) 

PRINT  "VARIABLE  NAMES  USED  ARE  " ; Var * < 3 > ; " , " ; Var $ ( 4 > 

IF  Veler=0  THEN  Veler=2 

DISP  "VELOCITY  ERROR  LIMIT  < DEFAULT^ Ve 1 er ; 

INPUT  Veler 
IF  Veler<=0  THEN  940 

PRINT  "VELOCITY  ERROR  L I M I T= " ; Ve 1 er 

Rmsl  abel  »="VEL0CITY  ERROR  LIMIT="«,VAL$(Vel  er> 

IF  LEN<:Fit$)=0  THEN  Fit$="Y" 

DISP  "IS  DATA  TO  BE  FITTED  TO  POLYNOMIAL  <Y  OR  N;  DEFAULT*  ";Fit$;">"; 
INPUT  Fit# 

IF  <Fit$<>"Y")  AND  i;Fit#<>"N">  THEN  1020 

IF  Fit#-"Y"  THEN  Fit 

PRINT  "DATA  NOT  FITTED  TO  POLYNOMIAL." 

Rot**"N"  !N0  FIT  THEN  NO  ROTATION 

Polar$«"C"  !  NO  ROTATION  THEN  USE  CARTISIAN  COORD. 

GOTO  1650 
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Fit:  ! 

DISP  "DEGREE  OF  POLYNOMIAL  FIT  <0=CONST,  1=LIN,  2=QUflD,  3=CUBIC;  DEFRlJLT=";ri 

•  II  ^  II  ■ 

INPUT  Degree 

IF  <Degree<0)  OR  < Degree >3 >  THEN  1130 

PRINT  "DflTfi  FITTED  TO  ft  POLYNOMIAL  OF  DEGREE  Degree 
Fitlabel*="FIT  TO  DEGREE  "&VftL#aiegree  > 

Order=Degree+l 

! 

IF  LEN<P1ot*)=0  THEN  Plot»="R" 

DISP  "PLOT  FIT  OR  RESIDUE  CF  OR  R;  DEFftULT= " ; P 1 ot f ; “ 

INPUT  Plot$ 

IF  <Plot*<>"F")  ftND  (.Plot*<>"R";)  THEN  1220 

IF  Plot$="F"  THEN  PI  ttyp.|:="FIT" 

IF  P1ot»="R"  THEN  PI  ttyp$=“RESIDLlE" 

PRINT  "PLOT  THE  ";Plttvrj* 

) 

IF  LENCPol  ar*)=0  THEN  Polar  #="C:" 

DISP  "CARTESIAN  OR  POLAR  PLOTS  <C  OR  P;  IiEFftlJLT= " ;  Pc  1  ar$ ;  " 

INPUT  Polar* 

IF  <Po1ar*<>"C">  AND  < Po 1 ar *<> " P " >  THEN  1310 
IF  Po1ar*="C"  THEN  PRINT  "PLOTS  ARE  CARTESIAN" 

IF  Polar*="P"  THEN  PRINT  "PLOTS  ARE  POLAR" 

! 

IF  LEN<Rot*>=0  THEN  Rot*="N" 

DISP  "ARE  PROFILES  TO  EE  ROTATED  <Y  OR  N;  DEFAULT* " ;  Rot  * ;  " 

INPUT  Rot* 

IF  <Rot*<>"Y">  AND  <Rot*<>"N">  THEN  1380 

IF  Rot*="Y"  THEN  1460 
! 

PRINT  "PROFILES  ARE  NOT  ROTATED" 

GOTO  1650 

! 

DISP  "ENTER  REFERENCE  TIME  Chrjtnir.;  DEFAULT* ";  T0hr ;  T0nn  n ;  "  >  "  ; 

INPUT  T0hr,Tomin 

DISP  "ROTATION  PERIOD  Chr . dec i mal ;  DEFRULT  =  " ; Rotper;  "  >  " ; 

INPUT  Rotper 
IF  Rotper=0  THEN  1500 

! 

B1  arikhr**Bl  ankml  n**"  " 

IF  <LEN<VAL*<:T0hr  )  )  =  1  >  AND  <LEN';VAL*';T0fiii  ri>  )  =  1  >  THEN  E 1  ank hr*  =  B  1  ank m i  r 

IF  <LEN<VAL*<T0hr  i  >  >1  AND  <.LEN<VAL*<T0mi  n>  :)*n  THEN  E 1  ank m i  n*=  " 0 " 

IF  <:LEN<VAL*<T0hr  >  >  =  1  >  AND  <LEN<VftL*<T0mi  n.>  >  >1  >  THEN  Elankhr**"©" 

Rot  1  abel**"  ROTATED  TO  "S:B1  arikhr*a.VAL*<T0hr  :  " &B  1  ank  m  1  n*8<VAL*  C  T0ni  i  n ) 

I 

PRINT  "THE  RESIDUE  PROFILES  MERE  ROTATED  BASED  ON  REF. TIME  OF  " ; T0hr ;  " 
T0mi n; "mi n  " 

PRINT  "  FOR  A  ROTATION  PERIOD  OF  ";Rotper 
PRINT  Rotlabel* 
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1640  Pen=VfiL<Pen*) 

1650  DISP  "PEN  NUMBER  TO  EE  USED  <1,2,3  OR  4;  0  FOR  ALL;  DEFfiULT= " ; Pen ; "  >" 

t 

1660  INPUT  Pen 

1670  IF  <Pen<0)  OR  <Pen>4)  THEN  1650 

1680  Pen*=VftL*<Pen) 

1690  ! 

1700  PRINT  "A  PLOT  OF  THE  "  ;  P 1 1 1  "  WAS  MADE  USING  PEN  #";Pen» 

1710  ! 

1720  IF  LEN<Label  *>=0  THEN  LabeU="Y" 

1730  DISP  "LABEL  PLOT  <Y  OR  N;  DEFAULT= “ ; Labe  1  * ; "  V; 

1740  INPUT  Label t 

1750  IF  (Label *<>"Y">  AND  (Label $<>"N" >  THEN  1730 

1760  ! 

1770  IF  Label»="N"  THEN  PRINT  "PLOT  IS  NOT  LABELLED," 

1780  IF  Label$="Y"  THEN  PRINT  "PLOT  IS  LABELLED." 

1790  ! 

1800  Ans*="P" 

1810  !  DISP  "RAW  OR  PROCESSED  DATA  INPUT  (R  OR  P;  DEFAULT= " ; Anst ; " > " ; 

1820  !  INPUT  Ans$ 

1830  IF  (Ans$<>"R")  AND  (Ans|:<>"P")  THEN  1810 

1840  ! 

1850  IF  An£#="R“  THEN  Dat  at.yp*="RAW" 

1860  IF  Ans#="P"  THEN  Dat at ypf=" PROCESSED" 

1870  PRINT  "INPUT  DATA  IS  " ; Dat at ypt ; " . " 

1880  ! 

1890  Plotter  setup:  !  PLOTTER_SETUP 

1900  ! 

1910  IF  Plotter*0  THEN  PI  otter =2 

1920  DISP  "GRAPHICS  (1),  9872A  (2>  OR  9872S  (  3  > ;  DEFAULT= " ;  P 1  ot  t  er  ;  " )  " 

1930  INPUT  Plotter 

1940  IF  (Plotter<0)  OR  (PI  otter  >3:)  THEN  1920 
1950  ! 

I960  IF  Plotter=0  THEN  2470 
1970  ! 

1980  IF  Plotter=l  THEN  2010 

1990  DISP  "PAPER  OR  ACETATE  FILM  <©  OR  l;  DEFAULT® "; F il m ; 

2000  INPUT  Film 
2010  ! 

2020  IF  Tic=0  THEN  Tic=25.4 

2030  DISP  "TIC  SIZE  (mm;  DEFAULT®" ;  Ti  c  ; 

2040  INPUT  Tic 

2050  PRINT  "TIC  SIZE  =";Tic;"  mm" 

2060  ! 

2070  IF  Xtics=0  THEN  Xtics=15 

2080  IF  Ytics®0  THEN  Ytics=10 

2090  DISP  "NUMBER  OF  XTICS,  YTICS  ( DEFAULT® Xt i c s ; Yt 1 c s ; 

2100  INPUT  Xtics.Ytics 

2110  IF  <Xtics<0)  OR  <Xtics>100)  THEN  2090 

2120  IF  <Ytics<0>  OR  (Ytics>100>  THEN  2090 

2130  • 

2140  Xmm»Ti c*Xt i cs 
2150  YmM®T1 c*Yt i cs 

2160  PRINT  "PLOT  WILL  BE  " ; Xmm; "mm" ; Xmm  25. 4; " i n  WIDE  AND  ";Ymm;"  mm  ";Ymm.25. 
4; "in  HIGH" 


Change»*"N" 

INPUT  "DO  YOU  WANT  TO  CHFiNGE  THE  SPECS'^  -i  Y'  N Change* 
IF  Change*="Y"  THEN  2020 
! 

ON  Plotter  GOTO  Gr  aphi  cs,  Hp9872a,  Hfj9872£ 


2170  Change**"N" 

2180  INPUT  "DO  YOU  WANT  TO  CH 
2190  IF  Change*="Y"  THEN  2020 
2200  ! 

2210  ON  Plotter  GOTO  Graphics 
2220  ! 

2230  Hp9872s:  ! 

2240  Hp9872a:  ! 

2250  ! 

2260  IF  Paper=0  THEN  Paper=3 
2270  IF  NOT  Film  THEN  DISP  " 

P;  DEFflULT=";Paper;  "  V; 

2280  IF  NOT  Film  THEN  INPUT  Paper 
2290  ! 

2300  IF  Paper=l  THEN  OUTPUT  705  USING  "K 

2310  IF  Paper=2  THEN  OUTPUT  705  USING  "K 

2320  IF  Paper=3  THEN  OUTPUT  705  USING  "K 

2330  ! 

2340  PLOTTER  IS  "9872PI" 

2350  ! 

2360  IF  Film  THEN  OUTPUT  705 


PPiPER  TYPE  ■1  =  7W,10H.  2=15W,10H.  3=  1  0W ,  7H ,  HOLES 


•;  "  IP600. 260, 7730, 10420" 
•; "IP600,260, 15876, 10401" 
■; "IP77,269, 10252,7377" 


PLOTTER 


"9872PI" 


IF  Film 


M  IS  USED 
2370  I 
2380  I 
2390  P 


2400  GOTO  2 

2410  j 

2420  Graphics: 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530  IF  fi 

2540  IF  fl 

2550  ! 

2560  Raui:  ! 
2570  Zsc=Ti 


IF  Pen*<>"0" 
IF  Label*="Y' 
PEN  0 
GOTO  2530 


OUTPUT  705;"VS10;"  ! LIMIT  PEN  VELOCITY  TO  10  CM- 

THEN  PEN  VFiL<;Pen*> 

'  THEN  FRPIME 


PLOTTER  IS  "GRPIPHICS" 

GRAPHICS 

Ti c=MIN< 184. 47  'Xt i cs, 149. 82  Yt i cs> 

PRINT  "GRAPHICS  TIC  SIZE  CHANGED  TO"; Tic; "mm 

LIMIT  0, Xt i cs«T i c , 0, Yt i c s*T i c 

MSCALE  Tic, Tic 

LINE  TYPE  3 

GRID  Tic, Tic 

LINE  TYPE  1 

FRAME 

EXIT  GRAPHICS 


TO  FIT  SCREEN" 


IF  Ans*="R' 
IF  Ans*»"P' 


THEN  Raw 
THEN  Proc 


Zsc=Tic/50  !  50  SEC  PER  TIC 

Dsc=Tic/<1.25*1016>  !  ABOUT  10  CM  S  PER  TIC 

PI  otscx*»VAL*<Ti  c*20/<2. 5*1016)/Dsc  >S<"  cm  s" 
PI  otscy<**VAL*<T i  c  'Zsc  )S<"  sec  " 

GOTO  2700 


2580  Dsc=Tic/<1.25*1016>  !  A 

2590  Plotscx*-VAL*<Tic*20/<2. 

2600  Plotscy<**VAL*<Tic '2sc)S<" 

2610  GOTO  2700 

2620  ! 

2630  Proc : ! 

2640  Zsc-Tic/200  !  200  M  P 

2650  Dsc»Ticxl0  !  10  CM/S 

2660  Plotscx*»VAL*<Tic/Dsc)a." 

2670  PI  otscv**VAL*(Ti  c.-'Zsc  )&:" 

2680 
2690 
2700 


200  M  PER  TIC 
10  CM/S  PER  TIC 


cm^s" 


PRINT  "FILE  NO.  FILE  NAME 
FOR  File«l  TO  16 


SETUP 

TIME  HR  MIN 


FILE  NAMES  AND  PARAMETERS 
U,V  OFFSETS  (TICS)" 
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2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 


DISP  “FILE  NAME  FOR  FILE  NUMEER=” ; Fi 1 e; 

EDIT  Fi le$<Fi le) 

IF  LEN<F1 le$<Fi le> ^=0  THEN  3060  !  BLANK  INDICATES  END  OF  INPUT  LIST 

I 

Fi 1 e$=F i 1 e$<Fi 1 e) 

IF  POS<Fi  U$,  THEN  2340 

ASSIGN  #1  TO  Fi le*<Fi le>,Ret 
IF  Ret=0  THEN  2860 
BEEP 

DISP  "THIS  FILE  NOT  ON  THIS  DISC.  "; 

GOTO  2720 

DISP  "IMPROPER  FILE  NAME. 

GOTO  2720 


IF  Rot*="N"  THEN  2950 

I 

DISP  "ENTER  DROP  TIME  Chr, min;  DEFAULT= " ; Thr < F i 1 e > ; Tm i n < F i 1 e > ;  "  )  "  ; 
INPUT  Thr<Fi  1  e) ,  Ttiii  ri'iFi  1  e> 

IF  <Thr<Fi 1 e)<-1000>  OR  CThrCF i 1 >=1O00>  THEN  2890 
IF  (TminCFi  1e)<0)  OR  <Tfiii  nCFi  1  e)  >=60;'  THEN  2890 

I 

IMAGE  #,4D,6X, 15A,3X,22, ",22 

PRINT  USING  2940;Fi  1e;Fi  UtCFi  1  e  > ;  Thr  <  F  i  U>;TmiriCFi  1  e  > 


IF  Offqu<Fi  1e)=0  THEN  Off  qu'tFi  1  e  >*4 
IF  Off  i  v<Fi  lc)=0  THEN  Off  i  M':Fi  1  €  >=4 
DISP  "U,  V  OFFSET  (tics;  DEFAULT* "; Of fqu( F i 1 s Of f i v( F i 1 e >;">" ; 
INPUT  Offqu<Fi  1  e  > ,  Of  f  i  t^<F i  1  e > 

PRINT  USING  3020;  OffquCFi  16>;  Off  iv(Fi  le-:) 

IMAGE  8X,3D.D,  3D.D 


NEXT  Fi U 
! 


******* 


Nf i 1 e“F i 1 e- 1 

! 

DISP  "ZAP  TOP  OF  PROFILES  (meters;  DEFAULT* "; Zzap ;">" ; 

INPUT  Zzap 

Zzap*-ABS(Zzap> 

IF  Zzap>1000  THEN  3080 

PRINT  "TOP"; ABS(Zzap>; "m  OF  PROFILES  ZAPPED" 


OUTPUT  9;"R" 

ENTER  9; Now* 

Now**VAL*<Year)&"; "&Now* 

PRINT  USING  "K";"PLOT  MADE  ";Now* 
! 

IF  Plotter-1  THEN  GRAPHICS 


***********************  START  OF  FILE  LOOP  TO  PROCESS  AND  PLOT  ****** 

FOR  Fi l€»l  TO  Nf i U 
Penus*-VAL<Pen») 

IF  Pen»-"0"  THEN  Penuse=(Fi 1e-l >  MOD  4+1 
PRINT  File;"FILE  NAME-" ; F i 1 e# (Fi 1 ♦ > 
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3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

V> 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 


fiSSIGN  »1  TO  Fi 
IF  Ret»0  THEN  3328 
BEEP 

EDIT  "THIS  FILE  NOT  FOUND  ON  THIS  D I  SC " , F i 1 e$ C F i 1  € ) 

GOTO  3270 
RERD  ttl, 1 

RERD  #l;Drop$,Douintihie$,Lat$,Long$ 

PRINT  Drop#, Downt i me#, Lat  #, Long# 

RERD  #l;Comment# 

PRINT  Comment# 

RERD  #l;01dprog#,01df1 le#, Created# 

PRINT  USING  3410;Oldprog#,Oldfne#.Created# 

IMRGE  "CRERTED  BY  ",k,  "  FROM  FILE  ON  ",K 

RERD  #1 ; Noar, Necan, Bad, Npar am 

REDIM  Param  (■  Npar am>  ,  Nou#  <■  Nuar  >  ,  D (Nsc  an.  Hoar  > 

RERD  #1 ; Param<*> , Nmu#<*)  ,  Dt*) 

! 

FOR  1=1  TO  Nscan 

IF  Da,9)<Ve1er  THEN  3510 
D<I,3)=Bad 
D<I,4)=Bad 
NEXT  I 
! 

FOR  V=3  TO  4  !  SERRCH  FOR  VRRIRBLES  BY  NRME 

FOR  L»1  TO  Noar 

IF  Nou#<LUl;LEN<Var$(V)>]  =  Var#(V)  THEN  3650 
NEXT  L 
BEEP 

EXIT  GRRPHICS 
PRINTER  IS  16 
PRINT  Nou#<:*> 

PRINTER  IS  0 

EDIT  "CRN'-T  FIND  VRRIRBLE  BELOW.  CHOOSE  NAME  FROM  RBOVE  L 1  ST " ,  Var# 

GRRPHICS 
GOTO  3540 
Var<V)=L 
NEXT  V 
DIM  Var<9) 

IF  Rns#="R"  THEN  Dz=-.5 

FOR  V=3  TO  4 
FOR  1=1  TO  Nscan 
IF  D<I,l)<Zzap  THEN  3758 
Dd,  V>-Bad 
NEXT  I 
NEXT  V 
LINE  TYPE  1 
CSIZE  2 

IF  Plotter-l  THEN  CSIZE  2.8 
LORG  9 
LDIR  0 
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3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 


MSCftLE  0,0 

IF  Label$="N"  THEN  3970 
IF  Fi  U>1  THEN  3970 
PEN  1 
SETGU 

Xgdumax=100*MflX<  1 , RATIO 
Ygdumax=100*t1flX<  1 ,  1xRFiTI0> 

MOVE  ■  99*Xgduinax ,  .  99* Yqdurriax 
IMAGE  3<ZZ,X),2<.ZZ, "SjZZ 
LABEL  USING  "K";Now# 

LABEL  USING  "K " ; F i 1 1 abe 1  $ 

!  LABEL  USING  " K " ;  Rms.  1  ahe  1  * 

IF  Rot#="N"  THEN  3960 
LABEL  USING  " K " ; Rot  1 abe 1 f 
SETUU 

Xoff =2*Ti c*< l+FII e>-l . 5*Ti c  ! MOVE  EATH  PLOT  C 

MSCALE  Xoff,0  !  PLOT  IN  mm 
MOVE  0,2 
LORG  4 
PEN  Penuse 

IF  Label$="Y"  THEN  LABEL  USING  "K"  ; Fil Fi 1 e> 
PEN  0 


!M0VE  EACH  PLOT  OVER  1  TIC  STARTING  AT  2 


START  OF  Var  LOOP  #1 
IF  Fit#=‘'N"  THEN  4700  (SKIP  OVER  FITTING  PORTION 

FOR  1=1  TO  Nscan  !  SET  UP  FITTING  FUNCTIONS 

F<1,  n  =  i 

F<2, I)=I 

F<3, I)=I-2 

F<:4,  DsI-^S 

NEXT  I 

*  AVERAGE  FITTING  FUNCTIONS 

Nbl ocks=30 

R  E  D I M  F  av  <!  4 ,  Nbl  o  c  k  s  J  ,  W  a'."'.  N  b  1  o  c  k  s  '■ ,  D  aM  <,  N  b  1  o  c  k  «■ ,  4  ) 
Blocksize=N£cari  DIV  Nblocks 
FOR  J=1  TO  Nblocks 
FOR  V=1  TO  Order 
Fav=0 

FOR  L=1  TO  Blocksize 
I  =  <J-1  >*Elocks.i2e  +  L 
Fay  =  FaM+I''<  V-1  > 

NEXT  L 

Faw<V, J)=FavxE1 ocksi ze 
NEXT  V 
NEXT  J 

AVERAGE  WEIGHTING  FUNCTION  U  TO  WAV 

FOR  J=1  TO  Nblocks 
Mao=0 

FOR  K=1  TO  Blocksize 
I*<J-1 )*B1 ocksi ze+K 
Wao=Uao-)-W<  I ) 

NEXT  K 

Way  <  J ) =WaoxB 1 oc  k  s i ze 
NEXT  J 


MAT  Dao»<Bad> 


AVERAGE  DATA  D  TO  DAV 
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4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 


FOR  V»3  TO  4 
Var=Var<V) 

FOR  J»1  TO  Nblocks 

FOR  K=1  TO  Blocksize 
I=<J-l>*Elocksi2€+K 
D=Da,Var> 

IF  D=Bad  THEN  4490 

Nav=Nay+ 1 
NEXT  K 

IF  Naw  THEN  Day  C  J,  V>  =  DaM.'Na*.' 

NEXT  J 
NEXT  V 

OBTAIN  FIT  FROM  AVERfiGED  DATA , F I T , WE  I GHT I NG 

FOR  V=3  TO  4 
Var=Var < V> 

CALL  Lsqw2  <  A  <  ,  V ,  Nb  1  oc  k  £ ,  Ord€  r  ,  Bad ,  Ngciod ,  1 ,  Day  <  *  > ,  Way  <  «■  > ,  Fav  <  *  >  > 
PRINT  "AVERAGE  FIT.  NBLOCk;S=  "  ;  Nb  1  oc k £ ; 

PRINT  USING  "K,X"; “A=";A<>> 

! 

FOR  1=1  TO  Nscan 

IF  D<I,Var)=Bad  THEN  4680 
Fi  t=0 

FOR  J=1  TO  Order  !  FORM  FIT 

F1t=Fit+F<J, I>*A<J> 

NEXT  J 

IF  P1ot*="F"  THEN  D(I,Var>=Fit. 

IF  P1ot*  =  "R"  THEN  Da,Var:'  =  DCI,'v'ar)-Fit. 

NEXT  I 
NEXT  V 


THEN  D(I,Var>=Fit. 

THEN  D  a , Var )  =  D C I , Var ) - F 1 1 


!  END  OF  Var  LOOP  #1 

!  START  OF  Var  LOOP  #2:  DATA  IS  PLOTTED 

PEN  Penuse 
FOR  V=3  TO  4 
Var=Var<V) 

V3=Var<3) 

V4«Var<4> 

Yoff*Tic*5*<5-V>  !  PUT  U  ABOVE  V,  EACH  5  TICS  HIGH 

0ff£et*0ffqu<F11 e>*T1 c  lOFFSET  Q<U> 

IF  V*4  THEN  Off£et=Off iy<Fi le>*Tic  !  OFFSET  ICV) 

LORG  3 

MSCALE  0,Yoff 

LINE  TYPE  1 

IF  Fi le>l  THEN  5080 

IF  Label«*"N"  THEN  5080 

MOVE  2,-2 

LDIR  0 

IF  Polar»-"C"  THEN  4910 
Nyu$<V3)-"SPEED" 

Nyu$<V4>«"PHASE" 

IF  V-4  THEN  PIotscx»="200  deg" 

LABEL  USING  "K" ; Nyu$<Var > 

MOVE  Tic/10,-3*Tic^l0 
DRAW  Tic/'10,-4»Tic/10 
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4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130  ! 

5140  ! 

5150 

5160 

5170 

5180 

5190 

5200 

DS  TO 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 


DRfiW  ll*Tic^l0,-4*Tic.''10 
DRAW  ll*Tic/'10,-3*Tic/10 
MOVE  6*Tic/'10,-5*Tic/10 
LORG  6 
LDIR  0 

LABEL  USING  "K" ; PI otscx* 

MOVE  2*Tic^l0, -2*Tic 
DRAW  Tic-'10,-2*Tic 
DRAW  Tic/10,-3*T1c 
DRAW  2*Tic-^10,-3*Tic 
MOVE  3*Tic/'10,-2.5*Tic 
LORG  6 
LDIR  90 

LABEL  USING  "K";P1otscy« 

IF  Pen»="0"  THEN  5110 

IF  File  MOD  2=1  THEN  LINE  TYPE  1 
IF  File  MOD  2=0  THEN  LINE  TYPE  5,1 
P=-2 

MSCALE  Xoff.Yoff 

PLOT  THE  DATA 
SI i de=4*T i c 

Ngood=Sr=Ssr =Srw=S£rw=0 
IF  Rot*="N"  THEN  5230 


Angl  e  =  ( Thr< F i  1  e >  -  TOhr  +  C Tm i  n ( F i  1  e  ;‘-T0fii i  n /  60 > *360/Rot  per 

IF  Ans$»'‘R''  THEN  Ang  1  e  =  - 1  «flng  1  e  !  FOR  RAW  DATA  QUAD-PHASE  CORRESPON 

EAST,  HENCE  THE  NEED  TO  CHANGE  ANGLE 
Cos»COS<Angl e) 

Si n=SIN<Angl e) 

FOR  Scan=l  TO  Nscan 
D=D<Scari,  Var ) 

D3=D<Scan, V3> 

D4=D<Scan,  V4:' 

IF  <D3<>Bad>  AND  ai4<>Ead::'  THEN  5310 
D3=D4=Bad 
P  =  -2 

GOTO  5610 
Y»D<Scan, 1 J^Zsc 

IF  (Rot$="N">  OR  <V=4>  THEN  5380 

Drot<3)=D3*-Co£.-D4*Sin 

Drot  <4>  =  D3*Si n+D4*Cos 

D=Drot  < Var ) 

D3»Drot  <3> 

D4=Drot  <4) 

IF  Polar$="C"  THEN  5510 
IF  An»$="R"  THEN  D3=-D3 
D=SQR<D3''2+D4''2> 

IF  V=3  THEN  5510 
D=ATN<D3-''D4) 

IF  <D3<0>  AND  <D4>0>  THEN  D=D+180 
IF  <D3<0)  AND  <D4<0)  THEN  D=D-180 

X«D*TiC/'200  !  200  DEG  PER  TIC  FOR  PHASE 

IF  ABS<D-D1 ast ><200  THEN  5520 
D1 ast=D 
P«-2 
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5490  GOTO  5610 

5500  ! 

5510  X=D*Dsc-Snde+Offset  !  OFFSET  TO  LEFT  BY  4  TICS  PLUS  DESIRED 

OFFSET 

5520  D1&st=D 

5530  Ngood=Ngood+ 1 

5540  Sr=Sr+D 

5550  Ssr»Ssr  +  D''2 

5560  Xw=D*W<Scan) 

5570  Srw=Srw+Xw 

5580  Ssrw=Ssrw+Xw''2 

5590  PLOT  X,Y,P 

5600  P=-l 

5610  ! 

5620  Di:Scan,  3^=D3 

5630  D<Scan,4)=D4 

5640  NEXT  Scan 

5650  ! 

5660  flvg=Sr/Ngood 

5670  Si  g=SQR<Ssr/Ngood-Fi'v>g''2> 

5680  flwgw=Srw/Ngood 

5690  S  i  gw=SQR  <  Ssr  W'^Ngood-fly gw-'  2  > 

5700  IF  flns$="P"  THEN  5740 

5710  Compt.yp$**'QUFlD-PHflSE" 

5720  IF  V  =  4  THEN  Coinptyp$="  IN-PHflSE" 

5730  GOTO  5800 

5740  Comptypf="U  COMP" 

5750  IF  V=4  THEN  Comptvp*="V  COMP" 

5760  IF  File>l  THEN  5800  ! PR  I  NT  HEfiDING  ONCE 

5770  IF  V>3  THEN  5800 

5780  PRINT  "INPUT  F I LE , VflR I RBLE , HO .  OF  GOOD  PTS , RYE . , STD .  DEV.  BftSED  ON  GOOD 

PTS" 

5790  IMAGE  4X, 6R, 4X, 10R, 4X, DDD , DDDD. DDD, 4X, DDD. DDD 

5800  PRINT  USING  5790 ; F i i e# C F i 1 e > , Compt yp* , Hgood , Rvgw , S i gw 

5810  NEXT  V 

5820  PEN  0 

5830  NEXT  Fi U 

5840  PEN  0 

5850  BEEP 

5860  !  IF  Plotter=l  THEN  PRINT  PAGE 
5870  !  IF  Plotter=l  THEN  DUMP  GRAPHICS 
5880  !  IF  P1ott€r=l  THEN  PRINT  PAGE 
5890  IF  Plotter=l  THEN  EXIT  GRAPHICS 
5900  DISP  Prograv#; 

5910  INPUT  "  FINISHED.  0  TO  STOP,  1  TO  CHANGE  OFFSETS  AND  REPLC7  .Control 
5920  ON  Contro1+l  GOTO  5930, Plotter_setup 
5930  STOP 
5940  ! 

5950  END 

5960  !  ***********ii************************************* 

5970  SUB  L»qw2<R<*) ,  Var,  N£c an.  Order  ,  Bad,  Ngood,  1 1 ,  SHORT  D<*> ,  ,  FC*) ) 

5980  OPTION  BASE  1 

5990  DIM  C (Order , Order ), C i fOrder, Order ), E<Order > 

6000  Ngood^O 

6010  FOR  I«1  TO  Nscan 

6020  D»D<I+Il-l,Var) 
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6030  IF  D*B*d  THEN  6120 
6040  Ngood>Ngood'»’l 
6050  FOR  J*1  TO  Order 
6060  Fw=F< J, I )*W< I ) 

6070  B< J>»B( J)+Fw*D 

6080  FOR  K»1  TO  J 

6090  C<J,K)»C<J,K>+Fw*F<k:,  I> 

6100  NEXT  K 

6110  NEXT  J 

6120  NEXT  I 

6130  FOR  J*1  TO  Order 

6140  FOR  K«1  TO  J 

6150  C<K,  J)=C<;j,K> 

6160  NEXT  K 
6170  NEXT  J 
6180  MAT  Ci»INV<C) 

6190  MAT  A=Ci*B 
6200  SUBEND 
6210  END 
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Program  CROSS,  Sample  Run 

CROSS  is  a  program  that  confutes  cross  correlation,  structure 
functions  euid  coherences  between  pairs  of  profiles.  The  operator  can 
select  the  ninnber  of  profiles,  number  of  variables  in  each  profile, 
plotter  to  use,  depth  interval  and  depth  interpolation  interval. 

The  operator  sets  up  the  program  in  advance  for  many  operations; 
the  computer  can  then  be  left  unattended.  This  program  can  be  very  time 
consimiing,  depending  on  the  options  selected. 

The  following  is  an  excuiple  of  computing  structure  functions  of 
seven  profiles  for  both  east  euid  north  components. 


PRINTER  ?  <0=THERMfiL,  16=CRT> 

0 

CROSSE  SEPT  24  80  RUN  DATE  AND  TIME  =  81:04:08:23:41:27 
NUMBER  OF  VFiRIFlELES  ? 

2 

NUMBER  OF  VFiRIFlELES  =  2 
NUMBER  OF  FILES  ? 

7 

NUMBER  OF  FILES  =  7 

PLOTTER  ?  <:0=NONE,  l=GRflPHICS,  2=9872fl:) 

0 

PLOTTER$=NONE 

PROCESSING  OPTION?  <1=CR0SS  CORRELATION,  2=STRUCTURE  FUNCTION,  3  =  C0HERANCE 
2 

PROCESSING  OPTION=STRUCTURE 
FIRST, LAST  DEPTH  TO  PROCESS  ? 

200,800 

FIRST, LAST  DEPTH  TO  PROCESS  =-200  -800 
NUMBER  OF  POINTS  PER  PIECE  ? 

50 

NUMBER  OF  POINTS  PER  PIECE  =  50 
NUMBER  OF  PIECES? 

2 

NUMBER  OF  PIECES=  2 
TOTAL  NUMBER  OF  POINTS  USED=  100 
DEPTH  INCREMENT=-6. 06060606061 
DEPTH  PER  PIECE=-296. 96969697 
MAX  DEPTH  LAG  ? 

20 

MAX  DEPTH  LAG  =  20 

MAXIMUM  RMSERR  ALLOWED  FOR  XTVP  DATA? 

3 

MAXIMUM  RMSERR  ALLOWED  FOR  XTVP  DATA=  3 
TYPE  FILE  NAME  FOR  FILE  No.  1 

82P 

WHICH  2  VARIABLE  No.s  TO  PROCESS? 

I 
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3,4 

VflR  No.  FOR  RMSERR  IN  XTVP  FILES?  <0  FOR  NONE) 

9 

FILE  No.=  1  FILENFlME  =  82P  VFlRIflBLES=U,  V,  VELERR 

TYPE  FILE  NAME  FOR  FILE  No.  2 

83P 

WHICH  2  VflRIfiELE  No.s  TO  PROCESS? 

3,4 

VHR  No.  FOR  RMSERR  IN  XTVP  FILES?  (0  FOR  NONE) 

9 

FILE  No.=  2  FILENFIME  =  83P  VftRIFlELES=IJ,  V,  VELERR 

TYPE  FILE  NAME  FOR  FILE  No.  3 

84P 

WHICH  2  VARIABLE  No.s-  TO  PROCESS? 

U,  V 

WHICH  2  VARIABLE  No.s  TO  PROCESS? 

U,  V 

WHICH  2  VARIABLE  No.s  TO  PROCESS? 

3,4 

VAR  No.  FOR  RMSERR  IN  XTVP  FILES?  <0  FOR  NONE) 

9 

FILE  No.=  3  FILENAME  =  84P  VARIAELES=IJ,  V,  VELERR 

TYPE  FILE  NAME  FOR  FILE  No.  4 

85P 

WHICH  2  VARIABLE  No.s  TO  PROCESS? 

3,4 

VAR  No.  FOR  RMSERR  IN  XTVP  FILES?  <0  FOR  NONE) 

9 

FILE  No.=  4  FILENAME=85P  VARIABLES=U,  V,  VELERR 
TYPE  FILE  NAME  FOR  FILE  No.  5 

86P 

WHICH  2  VARIABLE  No.s  TO  PROCESS? 

3,4 

VAR  No.  FOR  RMSERR  IN  XTVP  FILES?  <0  FOR  NONE) 

9 

FILE  No.=  5  FILENAME=86P  VARIABLES=U,  V,  VELERR 
TYPE  FILE  NAME  FOR  FILE  No.  6 

87P 

WHICH  2  VARIABLE  No.s  TO  PROCESS? 

3,4 

VAR  No.  FOR  RMSERR  IN  XTVP  FILES?  <0  FOR  NONE) 

9 

FILE  No.=  6  FILENAME=87P  VARIABLES=U,  V,  VELERR 
TYPE  FILE  NAME  FOR  FILE  No.  7 
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WHICH  2  VfiRIfiELE  No.s  TO  PROCESS? 


VflR  No.  FOR  RMSERR  IN  XTVP  FILES?  <0  FOR  NONE) 

9 

FILE  No.=  7  FILENflME  =  88P  VflRIflELES=U,  V,  VELERR. 

NUMBER  OF  SETS  OF  COMBINATIONS  ? 

3 

NUMBER  OF  SETS  OF  COMBINATIONS  =  3 
No.  FILES  IN  SET  No.  1  ? 


WHICH  3  FILE  No.s  FOR  SET  No.  1  ? 


1,2,3 

SET=  1  HAS  FILE  No.s;  1,2,3 
No.  FILES  IN  SET  No.  2  ? 


WHICH  4  FILE  No.s  FOR  SET  No.  2  ? 


SET=  2  HAS  FILE  No.s:  3  ,  4  ,  5  ,  6 

No.  FILES  IN  SET  No.  3  ? 


WHICH  3  FILE  No.s  FOR  SET  No.  3  ? 


1,2,7 

SET=  3  HAS  FILE  No.s:  1,2,7 


SET  FILENO  FILENAME 
1  1  82P 

2  83P 

DEPTH  RANGE  AVI 
me-t  er  s  > 


VARIABLE 

U 


AV2  2LAG  AVDIF  RMSDIF  RMSMIN  OKI  0K2 
<  fri  >  f  rac  t  i  on 


INTERPOLATING 


PROCESSING  STRUCTURE 


-200  -497  -9.23  -9.77  -18 

INTERPOLATING 


1.85  1.00  1.00 


PROCESSING  STRUCTURE 


-497  -794  -6.48  -5.22 


2.12  1.00  1.00 


SET  FILENO  FILENAME 
1  1  82P 

2  83P 

DEPTH  RANGE  AVI 
(meters) 
INTERPOLATING 


VARIABLE 

V 

V 

AV2  ZLAG  AVDIF  RMSDIF  RMSMIN  OKI  0K2 
<m)  fraction 


i 
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PROCESSING  STRUCTURE 

-200  -497  -2.92 

INTERPOLftTING 

PROCESSING  STRUCTURE 

-497-794  -7.31 

SET  FILENO  FILENAME 
1  1  82P 

3  84P 

DEPTH  RANGE  AVI 
< met  ers  > 
INTERPOLATING 

PROCESSING  STRUCTURE 


4.78  -18  .40  2.51 


■18  -6  .12  2.93 

VARIABLE 

U 

U 

AV2  2LAG  AVDIF  RMSDIF 

<m> 


2.51  1.00  1.00 


2.93  1.00  1.00  2.G 


RMSMIN  OKI  0K2 
f  rac  1 1  on 


-200  -497  -9.23 

INTERPOLATING 

PROCESSING  STRUCTURE 

-497  -794  -e.43 

SET  FILENO  FILENAME 

1  1  82P 

3  84P 

DEPTH  RANGE  AVI 

< met ers) 
INTERPOLATING 

PROCESSING  STRUCTURE 

-200  -497  -2.92 

interpolating 

PROCESSING  STRUCTURE 

-497  -794  -7.31 

SET  FILENO  FILENAME 
1  2  83P 

3  84P 

DEPTH  RANGE  AVI 

(.  meters) 
INTERPOLATING 

PROCESSING  STRUCTURE 


-12.66  18 


-5.49  6 


,34 


2.72  2.72  1.00  1.00 


13  2.73 


VARIABLE 

V 

V 

AV2  SLAG  AVDIF 
Cm) 


6.72  -18  .51 


2.38  -18  .38 

VARIABLE 

U 

U 

AV2  ZLAG  AVDIF 
<m) 


RMSDIF 


2.  77 


RMSMIN  OKI  OK2 
f rac  1 1  on 


2.77  1.00  1.00 


RMSDIF  RMSMIN  OKI  0K2 
Tract i on 


1 . 7 


2.73  1.00  1.00  3.5 


3.5 


i.43  3.43  1.00  1.00  2.6 


-200  -497  -9.77 

INTERPOLATING 

PROCESSING  STRUCTURE 

-497  -794  -5.22 


-12.66  -18 


.00 


-5.49  0  -.00 


2.  1 


RMSl  RMS2 


;.  1 


RMSl  RMS2 


1.8 


RMSl  RMS2 


3.02  3.02  1.00  1.00  1.4 


2.24  2.24  1.00  1.00  4.4  4.2 
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SET  FILENO  FILENAME 

1  2  83P 

3  84P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

V 

V 

2LAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

(meters? 

(m? 

Tract i on 

INTERPOLATING 

PROCESSING  STRUCTURE 

-200  -497  4.7S 

6.72 

18  -.10 

1.84 

1 . 84 

1.00  1.00 

1 . 7 

1 . 8 

INTERPOLATING 

-497  -794  .  IS 

2.38 

-12  .21 

3.  13 

3.  13 

1.00  1.00 

2.  1 

2.  9 

SET  FILENO  FILENAME 

2  3  84P 

4  85P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

U 

U 

2LAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

(met  ers  ? 

-200  -497  -12.66 

-15.  18 

(  m  ? 

0  -.00 

2.74 

2.74 

f rac  t i on 
1.00  1.00 

2.  1 

2.0 

-497  -794  -5.49 

-8.61 

-18  -.65 

2.24 

2.24 

1.00  1.00 

4. 2 

3 . 4 

SET  FILENO  FILENAME 

2  3  84P 

4  85P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

V 

V 

2LAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

( met  ers ) 

-200  -497  6.72 

2.84 

(m? 

6  -.  13 

3 .  42 

3.42 

f  rac  t  i  on 
1.00  1.00 

1.8 

3 . 7 

-497  -794  2.38 

-3.64 

-18  -.04 

3.37 

3. 37 

1.00  1.00 

2.  9 

2 .  0 

SET  FILENO  FILENAME 

2  3  84P 

5  86P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

U 

U 

2LAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

(meters? 

-200  -497  -12.66 

-13.81 

(m? 

18  -.15 

2.  89 

2.89 

Trac  t  j  on 
1.00  1.00 

2.  1 

1 . 9 

-497  -794  -5.49 

-5.63 

18  .64 

2.53 

2.53 

1.00  1.00 

4.2 

4.5 

SET  FILENO  FILENAME 

2  3  84P 

5  86P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

V 

V 

ZLAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

(meters? 

-200  -497  6.72 

-6.32 

(m? 

18  -.78 

4.20 

4.20 

f rac  t  i  on 
1.00  1.00 

1.8 

5.2 

-497  -794  2.38 

-10.18 

-12  .02 

3.40 

3.40 

1.00  1.00 

2.9 

2.  1 

SET  FILENO  FILENAME 

2  3  84P 

6  87P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

U 

U 

ZLAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

( met  ers  ? 

-200  -497  -12.66 

-15.90 

(m? 

18  .15 

3.  79 

3.  79 

Tract i on 
1.00  1.00 

2.  1 

2.4 

-497  -794  -5.49 

-5.27 

-18  -.74 

2.77 

2.77 

1.00  1.00 

4.2 

3.  1 

SET  FILENO  FILENAME 

2  3  84P 

6  87P 

DEPTH  RANGE  AVI 

AV2 

VARIABLE 

V 

V 

ZLAG  AVDIF 

RMSDIF 

RMSMIN 

OKI  0K2 

RMSl 

RMS2 

A62 
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< meters) 


iJm) 


f  rac  t  i  on 


-200  -497 

6.72 

-.26 

18 

.  12 

2.71 

2.71 

1 . 00 

1.00 

1.8 

2.6 

-497  -794 

2.38 

.94 

6 

-.  12 

3.51 

3.51 

1.00 

1 . 00 

2.9 

2.2 

SET  FILENO 

FILENAME 

VARIABLE 

2  4 

85P 

U 

5 

86P 

U 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

RMSDIF 

RMSMIN 

OKI 

0K2 

RMSl 

RMS2 

<  met  ers  > 

<  m) 

f ract i on 

-200  -497 

-15.13 

-13.81 

-12 

-.  19 

1.92 

1.92 

1 . 00 

1 . 00 

2.0 

1 . 9 

-497  -794 

-8.61 

-5.63 

0 

.00 

2.25 

2.25 

1 . 00 

1.00 

3. 4 

4.5 

SET  FILENO 

FILENAME 

VARIABLE 

2  4 

85P 

V 

5 

86P 

V 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

RMSDIF 

RMSMIN 

OKI 

0K2 

RMSl 

RMS2 

<  met  ers ') 

<m) 

f rac  t i on 

-200  -497 

2.84 

-6.32 

-18 

.76 

2.51 

2.51 

1.00 

1 . 00 

3.7 

5.2 

-497  -794 

-3.64 

-10.18 

-6 

- .  06 

2.35 

2.35 

1.00 

1 . 00 

2.0 

2.  1 

SET  FILENO 

FILENAME 

VARIABLE 

2  4 

85P 

U 

8 

87P 

U 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

RMSDIF 

RMSMIN 

OKI 

0K2 

RMSl 

RMS2 

( meters  > 

<m) 

f  rac  t  i  on 

-200  -497 

-15.13 

-15.90 

6 

.20 

2.70 

2.70 

1.00 

1.00 

2.0 

2.4 

-497  -794 

-3.61 

-5.27 

0 

.00 

2.41 

2.41 

1.00 

1.00 

3.4 

3.  1 

SET  FILENO 

FILENAME 

VARIABLE 

2  4 

85P 

V 

6 

87P 

V 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

RMSDIF 

RMSMIN 

OKI 

0K2 

RMSl 

RMS2 

<  met  ers ) 

<m ) 

f  rac  t  i  on 

-200  -497 

2.84 

-.26 

12 

.05 

2.  62 

2.62 

1 . 00 

1 . 00 

3.7 

2.6 

-497  -794 

-3.64 

.  94 

-18 

.  16 

2.70 

2.70 

1 . 00 

1 . 00 

2.0 

2.2 

SET  FILENO 

FILENAME 

VARIABLE 

2  5 

36P 

U 

6 

87P 

U 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

RMSDIF 

RMSMIN 

OKI 

0K2 

RMSl 

RMS2 

<  meters > 

<m) 

f rac  t i on 

-200  -497 

-13.81 

-15.90 

13 

.  32 

2.28 

2.28 

1 . 00 

1.00 

1 . 9 

2.4 

-497  -794 

-5.63 

-5.27 

0 

.00 

3.  14 

3.  14 

1.00 

1.00 

4.5 

3.  1 

SET  FILENO 

FILENAME 

VARIABLE 

2  5 

86P 

V 

8 

87P 

V 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

RMSDIF 

RMSMIN 

OKI 

0K2 

RMSl 

RMS2 

<  met  ers ) 

<m) 

f  rac  t  i  on 

-200  -497 

-6.32 

-.26 

18 

-.  19 

3.84 

3.  84 

1.00 

1.00 

5.2 

2.6 

-497  -794 

-10.13 

.94 

18 

-.21 

2.73 

2.78 

1.00 

1.00 

2.  1 

2.2 

SET  FILENO  FILENAME 
3  1  82P 

2  83P 


VARIABLE 

U 

U 


1 
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DEPTH  RBHGE 

flVl 

AV2 

ZLAG 

AVDIF 

<!  meters) 

<m) 

-200  -497 

-9.23 

-9.77 

-18 

-.  14 

-497  -794 

-6.48 

-5.22 

6 

.  12 

SET  FILENO 

FILENAME 

VARIABLE 

3  1 

82P 

V 

83P 

V 

DEPTH  RftNGE 

AVI 

AV2 

ZLAG 

AVDIF 

< meters) 

<m) 

-200  -497 

-2.92 

4.78 

-18 

.40 

-497  -794 

-7.31 

.  18 

-6 

.  12 

SET  FILENO 

FILENAME 

VARIABLE 

3  1 

82P 

U 

7 

88P 

U 

DEPTH  RHNGE 

AVI 

AV2 

ZLAG 

AVDIF 

<  met  ers ) 

<m) 

-200  -497 

-9.23 

-15.91 

18 

.  63 

-497  -794 

-6.48 

-4.92 

18 

-.04 

SET  FILENO 

FILENAME 

VARIABLE 

3  1 

82P 

V 

7 

88P 

V 

DEPTH  RHNGE 

AVI 

AV2 

ZLAG 

AVDIF 

(meters) 

<m) 

-200  -497 

-2.92 

-16.71 

18 

.  15 

-497  -794 

-7.31 

-9.48 

18 

.32 

SET  FILENO 

FILENAME 

VARIABLE 

3  2 

83P 

U 

7 

88P 

U 

DEPTH  RRNGE 

AVI 

AV2 

ZLAG 

AVDIF 

(meters) 

<m) 

-200  -497 

-9.77 

-15.91 

18 

.45 

-497  -794 

-5.22 

-4.92 

18 

.  18 

SET  FILENO 

FILENAME 

VARIABLE 

3  2 

83P 

V 

7 

88P 

V 

DEPTH  RANGE 

AVI 

AV2 

ZLAG 

AVDIF 

■'  -'et  ers ) 

<m) 

-200  -497 

4.78 

-16.71 

18 

.41 

-497  -794 

.  13 

-9.48 

-12 

.00 

RMSDIF 

RMSMIN 

OKI  0K2 
f  rac  1 1  on 

RMSl 

RMS2 

1.65 

1.65 

1.00  1.00 

1.7 

1 . 4 

2.  12 

2.  12 

1.00  1.00 

3. 5 

4.4 

RMSDIF 

RMSMIN 

OKI  0K2 
fr act  1  on 

RMSl 

RMS2 

2.51 

2.51 

1.00  1.00 

3 . 5 

1 . 7 

2.93 

2.93 

1.00  1.00 

2.6 

2.  1 

RMSDIF 

RMSMIN 

OKI  0K2 
Tract i on 

RMSl 

RMS  2 

2.01 

2.01 

1.00  1.00 

1 . 7 

2. 9 

3.58 

3.58 

1.00  1.00 

3.5 

2. 0 

RMSDIF 

RMSMIN 

OKI  0K2 
Tract i on 

RMSl 

RMS2 

5.99 

5.99 

1.00  1.00 

3.5 

3 . 6 

3. 30 

3.30 

1.00  1.00 

2.6 

3. 8 

RMSDIF 

RMSMIN 

OKI  0K2 
Trac  t i on 

RMSl 

RMS  2 

2.49 

2.49 

1.00  1.00 

1.4 

2.9 

4.24 

4.24 

1.00  1.00 

4.4 

2. 0 

RMSDIF 

RMSMIN 

OKI  0K2 
Tract i on 

RMSl 

RMS2 

4.43 

4.43 

1.00  1.00 

1 . 7 

3.44 

3.44 

1.00  1.00 

2.  1 

3.8 

Listing  of  Progreun  CROSS 


J0  !  CROSS  CORRELATION,  STRUCTURE  FUNCTION  OR  COHERANCE  BETWEEN  TWO  PROFILE 

20  !  SPECIALLY  MODIFIED  TO  ZAP  U,V  OF  XTVP  PROFILES  WHEN  RMSERR >MAXERR . 

30  !  J.  DUNLAP 

40  !  SEPT  17  1S80  .  CROSSD  HAS  COHERANCE  ADDED. 

50  !  SEPT  24  1980.  CROSSE  HRS  COHERANCE  WORKING  AFTER  A  FASHION. 

60  I 

70  Progreu$="CROSSE  SEPT  24  80'' 

80  Year=80 

90  ! 

100  NORMAL 

110  STANDARD 

120  OVERLAP 

130  OPTION  BASE  1 

140  INPUT  "PRINTER  ?  <:0  =  THERMRL,  1  €.=CRT )  "  ,  Pr  i  nt  er 
150  PRINTER  IS  Printer 

160  ! 

170  OUTPUT  9; "R" 

180  ENTER  9; Runtime# 

190  Runt  i  me#=VAL#<Year  :  "iSiRunt  i  me# 

200  ! 

210  DIM  Comment#! 160] , Par am< 100) , Nuu#<9> 

220  ! 

230  DIM  Commentl#C160],Paraml<100>,Nuul#(:9) 

240  SHORT  Dl<500,9) 

250  ! 

260  DIM  Par am2( 100) , Nuu2#<9) , Comment 2#C 160] 

270  SHORT  D2<500,9) 

280  ! 

290  DIM  Y1C2000),Y2<2000),R12<100) 

300  ! 

310  f  ■  ’  Progreu#, "RUN  DATE  AND  TIME  =  Runtime# 

320  ! 

330  .  .JT  "NUMBER  OF  VARIABLES  ?",Npair 

340  PRINT  "NUMBER  OF  VARIABLES  =";Npair 

350  ! 

360  INPUT  "NUMBER  OF  FILES  ?",Nfile 

370  PRINT  "NUMBER  OF  FILES  =";Nfi1e 

380  ! 

390  DIM  LupC50,3),Lupp':3),Fi  le#<50),Luprm£<50) 

400  REDIM  LupCNfi le,Npair),Lupp<Npair),Fi le#<Nfi leY'jLuprmsCNfi le) 

410  ' 

420  INPUT  "PLOTTER  ?  <0=NONE,  1=GRAPHICS,  2  =  9872A) ",  PI  otter 

430  IF  P1otter*0  THEN  P 1 ot t er#* "NONE " 

440  IF  P1otter=l  THEN  PI otter#»"GRRPHICS" 

450  IF  P1otter=2  THEN  PI otter#*"9872A" 

460  PRINT  "PLOTTER#*";Plotter# 

470  ! 

480  INPUT  "PROCESSING  OPTION?  < 1-CROSS  CORRELATION,  2-STRUCTURE  FUNCTION.  3 
OHERANCE)", Process 

490  IF  <Process<l)  OR  <Process>3)  THEN  480 

500  IF  Process-1  THEN  Process#-"CROSSCOR" 

510  IF  Process-2  THEN  Process#-"STRUCTURE" 

520  IF  Process-3  THEN  Process#-"COHERHNCE" 

530  PRINT  "PROCESSING  OPTION-" ; Process# 

540  ! 
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550  INPUT  "FIRST, LAST  DEPTH  TO  PROCESS  ?",2l,22 
560  21=-flBS<:21) 

570  22=-flBS<22> 

580  PRINT  "FIRST, LAST  DEPTH  TO  PROCESS  =";2i;22 
590  ! 

600  INPUT  "NUMBER  OF  POINTS  PER  PIECE  ?’’,Npp 

601  Npp=PROUND<Npp, 0> 

610  PRINT  "NUMBER  OF  POINTS  PER  PIECE  =";Npp 
620  ! 

630  INPUT  "NUMBER  OF  PIECES?" , Npi e 

631  Npi e=PROUND<Npi e, 0) 

640  PRINT  "NUMBER  OF  PIECES=“ ; Npi e 

650  ! 

660  Nu£€=Np i e*Npp 

670  D2  =  -AES^;<;22-21>/(:Nuse-l>> 

680  2pp=-AES< <Npp-l )*Dz) 

690  ! 

700  PRINT  "TOTAL  NUMBER  OF  POINTS  USEL=";Nu£e 

710  PRINT  "DEPTH  I NCREMENT= " ; Dz 

720  PRINT  "DEPTH  PER  PIECE=";2pp 

730  ! 

740  IF  <Pr'Oces£$<>"CR0SSC0R"  )  AND  CProc  £■££*<>"  STRUCTURE " !)  THEN  780 
750  INPUT  "MAX  DEPTH  LAG  ?",21agrfiax 

760  PRINT  "MAX  DEPTH  LAG  =";21agmax 

770  N1 agmax=AES< <21 agmax+. l*Dz)  DIV  Dz> 

780  ! 

790  IF  Prc.cess$<>"COHERANCE“  THEN  850 

800  INPUT  "NO.  FREQ.  BANDS  TO  AVERAGE?" , Nband 

810  PRINT  "NO.  FREQ.  BANDS  TO  AVERAGE** Nband 

820  ! 

830  Hfft=Npp 

840  PRINT  "NUMBER  OF  POINTS  IN  FFT=NUMBER  OF  POINTS  PER  PIECE=";Nfft 
850  ! 

860  REDIM  R1 2< -N1 agmax: N1 agmax ) , Y1 <Npp> , Y2<Npp > 

870  ! 

880  INPUT  "MAXIMUM  RMSERR  ALLOWED  FOR  XTVP  DATA? ",  Rrnsmaxal  1  owed 

890  PRINT  "MAXIMUM  RMSERR  ALLOWED  FOR  XTVP  DAT A= ";  Rmsrnaxal  1  owed 

900  ! 

910  !  *■»*«***«*«■#***«**«***»******  GET  FILE  NAMES  AND  VARIABLES  FOR  EACH  FILE 

920  ! 

930  FOR  Fi 1e=l  TO  Nf i Ic 

940  ! 

950  DISP  "TYPE  FILE  NAME  FOR  FILE  No.";File; 

960  EDIT  "  ",Fi 1e»<Fi le> 

970  ! 

980  ASSIGN  File»<File>  TO  #l,Ret 

990  IF  Ret=0  THEN  1040 

1000  BEEP 

1010  DISP  "CANNOT  FIND  THE  FOLLOWING  FILE.  PLEASE  EDIT  OR  TRY  ANOTHER  TAP 

E/DISC. "; 

1020  GOTO  960 

1030  ! 

1040  READ  «1,  1 

1050  READ  lH;Drop$,Datetiine$,Lat$,  Longt  ,Cotriment-*,Fromrog$,Frotnfile*,Created$ 

1060  READ  #1 ;  Nt^ar ,  Nscan,  Bad,  Nparam 

1070  REDIM  NvutCNwar ) , Param<Nparam> 


! 


1080  READ  #l;Param'-;*),Nyu$<*) 

1090  I 

1100  PRINTER  IS  16 

1110  PRINT  "FILE=";Fi le$<Fi le) 

1120  PRINT  "VARIABLE  No . " , " VAR  I  ABLE  NAME" 

1130  FOR  L=1  TO  Nwar 

1140  PRINT  L,Nou*(L) 

1150  NEXT  L 

1160  PRINTER  IS  Printer 

1170  ! 

1180  FOR  Pair=l  TO  Npai  r 

1190  Lupp<Pai r )=Lup<F i 1 e , Pai  r > 

1200  NEXT  Pair 

1210  ! 

1220  DISP  "WHICH";Npair;  "VARIABLE  No.s  TO  PROCESS?"; 

1230  INPUT  "",Lupp<*'^ 

1240  ! 

1250  FOR  Pair=l  TO  Npai  r 

1260  IF  CLupp^Pai r>< 1 >  OR  < Lupp < Pai r ) >Nvar >  THEN  1220 

1270  Lup< Fi 1 e , Pai r )=Lupp<Pai r ) 

1280  NEXT  Pair 

1290  ! 

1300  INPUT  "VAR  No.  FOR  RMSERR  IN  XTVP  FILES?  CO  FOR  NONE > " , Luprms C F i 1 e > 

1310  IF  CLuprmsCFi  le><0>  OR  < Lupr-ms < F i  1  e  )  >N'...'ar  >  THEN  1300 

1320  ! 

1330  PRINT  "FILE  No.=";File;"  F I LENAME= "  ;  F i  1  e* < F i  1  e > ;  "  VARIABLES="; 

1340  FOR  Pair*l  TO  Npair 

1350  PRINT  NuutCLupCFi 1e,Pair>); ",  "; 

1360  NEXT  Pair 

1370  ! 

1380  IF  LuprmsCFi 1e>  THEN  PRINT  Nmu* C Lupr ms C F i 1 e > > ; " . " 

1390  IF  NOT  LuprmsCFile)  THEN  PRINT  "." 

1400  NEXT  File 

1410  ! 

1420  !  DETERMINE  THE  SET  BOUNDRIES 

1430  !  IN  ONE  SET  ALL  THE  COMBINATIONS  WILL  BE  USED 

1440  ! 

1450  INPUT  "NUMBER  OF  SETS  OF  COMBINATIONS  ?",Nset 

1460  PRINT  "NUMBER  OF  SETS  OF  COMBINATIONS  =";Nset 

1470  ! 

1480  DIM  Fi lenoC50,20),Nf i 1eC20) 

1490  REDIM  Fi lenoCNf i 1e,Nset),Nfi leCNset) 

1500  ! 

1510  FOR  Set=l  TO  Nset 

1520  DISP  "No.  FILES  IN  SET  No . " ; Set ; " ?" ; 

1530  INPUT  "",Nfi leCSet) 

1540  IF  CNf i le<Set)<2)  OR  CNf i 1 eCSet > >Nf i 1 e>  THEN  1520 

1550  ! 

1560  DIM  Fi 1en<20) 

1570  REDIM  Fi lenCNfi leCSet)) 

1580  ! 

1590  FOR  F=1  TO  Nfi leCSet) 

1600  Fi 1 enCF)=Fi 1 enoCF, Set ) 

1610  NEXT  F 

1620  ! 

1630  DISP  "WHICH";Hfi leCSet); "FILE  No.s  FOR  SET  No . " ; Set ; " ?  "  ; 


APL-UW  8110  A67 


1640  INPUT  "",Fnen<*) 

1650  !  CHECK  FILE  No.s 

1660  FOR  F=1  TO  NfiU<Set) 

1670  IF  <Filen<FKn  OR  (Fil  eri<F>  >Nf  il  e>  THEN  1630 

1680  Fi 1eno<F,Set >=Fi len<F> 

1690  NEXT  F 

1700  ! 

1710  PRINT  “SET=";Set; “HAS  FILE  No.s:“; 

1720  FOR  F=1  TO  Nfile<Set)-l 

1730  PRINT  FiUnoCF,  Set  )  ; 

1740  NEXT  F 

1750  PRINT  Fi lenotNfi le<Set),Set>; " 

1760  ! 

1770  NEXT  Set 
1780  ! 

1790  !  ****************  READ  DATA  FROM  ALL  PAIRS  OF  FILES  FROM  EACH  SET 
1800  ! 

1810  FOR  Set=l  TO  Nset 

1820  FOR  F11el=l  TO  Nfi1e<Set)-l 

1830  !  INPUT  FILE  1 

1840  Fi 1 elno=F 1 1 enoC Fi 1 e 1 , Set ) 

1350  Fi lel*=Fi 1e$<Fi lelno) 

I860  ASSIGN  Filel*  TO  #l,Ret 

1870  IF  Ret=0  THEN  1930 

1880  DISP  "CANNOT  FIND  FILE  =  " ; F i 1 e# C F i 1 e 1 > ;  "  .  TRY  ANOTHER  DISC/TAPE  THEN 

PUSH  CONT" 

1890  BEEP 

1900  PAUSE 

1910  DISP  "" 

1920  GOTO  I860 

1930  READ  «1 , 1 

1940  READ  # 1 i Drop  1 $, Dat et i me  1 $, Lat Long  1  $ 

1950  READ  #1 ; Comment  1$, Fromprogl*, Fromfi 1  el#, Createdl* 

I960  READ  #1 ; Noar 1 , Nscanl , Badl , Nparaml 

1 970  RED  I M  Nyw 1 #  <  Noar 1 > , D 1 <  Nsc  an  1 , Nvar 1 ) , Par am  1 ( Nparam 1 > 

1980  READ  #l;Paraml<*),Nvul#<*),Di<*) 

1990  ! 

2000  !  SET  DATA  BAD  WHICH  HAVE  RMSERR  LARGER  THAN  RMSMAX 

2010  !  JUST  FOR  VARIABLES  USED 

2020  ! 

2030  Luprms  =  Luprms<Fi 1  el  ) 

2040  IF  Luprms^^O  THEN  2130 

2050  FOR  1=1  TO  Nscanl 

2060  Rme=Dl < I , Luprms) 

2070  IF  Rms<Rm&maxa1 1  owed  THEN  2120 

2080  FOR  Var=l  TO  Npair 

2090  Lup=Lup<Fi lei, Var) 

2100  Dl<I,Lup>«Badl 

2110  NEXT  Var 

2120  NEXT  I 

2130  ! 

2140  FOR  Fi le2=Fi lel+1  TO  Nfile<Set) 

2150  !  INPUT  FILE  2 

2160  Fi 1 e2no=Fi 1 enoCFi 1 e2, Set ) 

2170  Fi 1e2#=Fi le#<Fi 1e2no) 

2180  ASSIGN  Fi1e2«  TO  «2,Ret 
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2190  IF  Ret=0  THEN  2250 

2200  BEEP 

2210  DISP  "CANNOT  FIND  FILE  =  " ; Fi 1 e*<Fn e2) ; " .  TRV  ANOTHER  TAPE/DISC  T 

HEN  PUSH  CONT" 

2220  PAUSE 

2230  DISP  "" 

2240  GOTO  2180 

2250  READ  *2, 1 

2280  READ  #2;  Drop2$,  Datet i me2$, Lat2$, Long2$ 

2270  READ  #2 ;  Comment  2$ ,  Frotrtprog2* ,  Fromf  i  1  6  2* ,  Gr  eat  ed2^ 

2280  READ  #2;  Nuar2, Nsc an2 , 6ad2, Nparam2 

2290  REDIN  N'v'u2* < Noar2  > ,  D2 <Nsc an2,  NMar2 >  ,  Par  am2 < Npar am2 > 

2300  READ  #2;Param2<*),Nou2*<*>,D2'C*> 

2310  ! 

2320  !  SET  DATA  BAD  WHICH  HAVE  RMSERR  LARGER  THAN  RMSMAX 

2330  !  JUST  FOR  VARIABLES  USED 

2340  ! 

2350  Luprms=Luprms<Fi 1 e2) 

2360  IF  Luprms.=0  THEN  2450 

2370  FOR  1=1  TO  Nscan2 

2380  Rms=D2< I , Luprrns) 

2390  IF  Rm£< Rmsmaxall oued  THEN  2440 


2400 

FOR  Var=l  TO  Npair 

2410 

Lup=Lupi;Fi  1e2,Var> 

2420 

D2<I,Lup)=Bad2 

2430 

NEXT  Var 

2440 

NEXT  I 

2450 

! 

2480 

IF  Plotter*="NONE"  THEN  2500 

2470 

PLOTTER  IS  Plotter* 

2480 

Xgdu=100*MAX<l, RATIO) 

2490 

Ygdu=100*NAX<l, 1/RATI0> 

2500 

! 

2510 

FOR  Pair=l  TO  Npair 

2520 

Lupl=Lup<Fi  l.el,Pair) 

2530 

Lup2=Lup<Fi le2,Pair) 

2540 

! 

2550 

PRINT  USING  2560;Set,Fi l6lno,Fi lei*, 

Nyul*(Lupl ) , Fi 

1  6  2  n  0 ,  F 1  1  e  2  * ,  N ' '  y  2 

*<Lup2) 

2580 

IMAGE  /,"SET  FILENO  FILENAME 

VARIABLE" , 

3D,X,3D,4X, ISA, 18 

A,/,4X,3D, 

4X, 18A, 18A 

2570 

! 

2580 

IF  Process*<>"CROSSCOR"  THEN  2820 

2590 

PRINT  "DEPTH  RANGE  AVI  AV2 

R12MAX  ZLRG 

AVDIF  RMSDIF  0 

K1  0K2 

RMSl  RMS2" 

2800 

PRINT  "  (meters) 

(m) 

f 

ract i on 

M 

2810 

GOTO  2880 

2820 

! 

2830 

IF  Proces£*<>"STRUCTURE"  THEN  2860 

2840 

PRINT  "DEPTH  RANGE  AVI  RV2 

ZLAG  AVDIF 

RMSDIF  RMSMIN  0 

K1  0K2 

RMSl  RMS2" 

2850 

PRINT  "  (meters) 

(m) 

f 

ract i on 

II 

2880 

1 

2670 

IF  (Process*< >"STRUCTURE" )  AND  (Proce££*< >"CROSSCOR" )  THEN  3770 
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2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

X, Ml agmax, ^1 
3070 

max, Ml agmax, 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 


FOR  Pie=l  TO  Npie 
2pl=Zl+(Pie-l )*2pp 
2p2=Zpl+Zpp 

!  INTERPOLATE  D1<*),D2<*)  INTO  Y 1  <  *  >  ,  Y2  : 

DISP  "INTERPOLATING" 

CALL  Interp<Dl<*),Nscanl, l,Lupl,Zpl,Dz, Npp, Badl,Yl<*>) 

CALL  Inter p CD2<* ) , Nsc an2, 1 , Lup2, Zpl , Dz, Npp, Bad2,Y2<*>> 

DISP  "" 

!  COMPUTE  AVERAGES  AND  RMS  PER  PIECE 

S1=S2=0 
Ssl=Ss2=0 
Nokl=Nok2=0 
FOR  1=1  TO  Npp 
Yl=Yia> 

Y2=Y2<  I  > 

IF  Yl=Badl  THEN  2880 
Nok l=Nok 1+1 
S1=S1+Y1 
Ssl=Ssl+Yl''2 
IF  Y2=Bad2  THEN  2920 
Nok2=Nok2+l 
S2=S2+Y2 
Ss2=Ss2+Y2''2 
NEXT  I 
At!  1  =Am2=0 
Stdl=Std2=0 

IF  Nokl  THEN  Avl=SlxNokl 

IF  Nokl  THEN  Stdl=SG!R<Ssl/Nok  l-Avl-^ZJ 

IF  Nok2  THEN  Ao2=S2/Nok2 

IF  Nok 2  THEN  St d2=SQR < SsZ-'Nok 2-A'.'2''2 ) 

!  FORCE  Yl<*),  Y2<;«>  TO  ZERO  MEAN  PER  PIECE 


FOR  1=1 
IF  Y1 
IF  Y2 
NEXT  I 


TO  Npp 
:  I )<>Badl 


THEN  Y1<I)=Y1(I>-Am1 


CnOBadZ  THEN  Y2<  I  >=Y2a  >-Ay2 


DISP  "PROCESSING  ";Process$ 

IF  Process$="CROSSCOR"  THEN  CALL  Crosse  or  Y 1  Y2  Npp , -N 1  agrna 
2<+>,311,S22,Badl,Bad2,0kl,0k2> 

IF  Process»="STRUCTURE"  THEN  CALL  St  rue t ure < Y 1 ( * > , Y2 C « ) , Npp , -N 1 ag 
R12(#>, Badl , Bad2,0k 1 , 0k2> 

DISP  "" 

I 

IF  Process»<>"CROSSCOR"  THEN  3210 

!  CROSS  CORRELATION:  FIND  LAG  WITH  MAX  CORRELATION 

Rl2max=-1 

FOR  Lag=-N1 agmax  TO  N1 agmax 
IF  R12max>R12<Lag)  THEN  3170 
R12max=R12(  Lag) 

M1ag=Lag 
NEXT  Lag 
Z1 ag=0 

IF  R12max<>0  THEN  Z1ag«M1ag*Dz 
! 

IF  Proces*»<>"STRUCTURE"  THEN  3320 

!  STRUCTURE  FUNCTION;  FIND  LAG  WITH  RMS  MINIMUM 
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3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

,Stdl,St,d2 

3520 

3530 

3540 

3550 

3560 

, St  dl , St d2 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 


Rffismi  n=R12<0) 

M1ag=0 

FOR  Lag*-Nlagmax  TO  Nlagmax 
IF  Rmsmin<R12<Lag>  THEN  3290 
Rmsmin=R12<Lag) 
ag=Lag 
NEXT  Lag 
21ag=0 

IF  Rnrismin>0  THEN  21ag=M1ag»Dz 
! 

Nd=Sd=Sdd=0  !  GET  flVG  FIND  RMS  OF  DIFFERENCE  FiT  MLflG 

FOR  I=MFIXa  ,  1-Ml  ag)  TO  MINCNpp,  Nfsp-Ml  ag) 

Y1=Y1<I> 

Y2=Y2< I+M1 ag) 

IF  <Yl=Badl)  OR  «;Y2=Ead2)  THEN  3420 
Di f=Yl-Y2 
Nd=Nd+l 
Sd=Sd+D i r 
Sdd=Sdd+Di  f''2 
NEXT  I 
! 

Hvdi  f=Rnisdi  f=0 
IF  Nd=0  THEN  3480 
Ftwdif  =  SdxNd 

Rfnsdif  =  SQR<SddxNd-FlMdif''2> 

! 

IF  Proce£S*<>"CROSSCOR"  THEN  3530 

!  PRINT  FOR  CROSS  CORRELfiTION 

PRINT  USING  3520;2pl,Zp2,FlMl;flw2;R12niax;Z1ag;FlMdif;Rm£dif,Okl,Cik2 

IMFIGE  2<5D),2<5D.DD),4D.3D,5D,2<5D.DD),2'::2D.2D),2<5D.D> 

IF  Process$<>"STRUCTURE"  THEN  3580 

!  PRINT  FOR  STRUCTURE  FUNCTION 

PR  I  NT  USING  3570;  2pl ,  Zp2,  Fly  1 ,  fly  2, 2 1  ag ,  flyd  i  f ,  Rrnsd  i  f ,  Rmsmi  n ,  Ok  1 ,  Ok  2 

IMAGE  2<:5D),2C5D.2D),5D,3<5D.2D),2<2D.2D),2<5D.D> 

! 

IF  P1ott6r»="N0NE"  THEN  3760 
IF  Plotter#="GRflPHICS"  THEN  GRAPHICS 

Xbox=XgduxNpai r 
YboxsYgduxNpi e 

LOCATE  Xbox*<Pair-l),Xbox*Pair,Ybox*<:Npie-Pie),Ybox*CNpie-Pi6  +  l) 
FRAME 

IF  Process*  =  ''CROSSCOR'’  THEN  SCALE  -N1  agmax, N1  agmax, -1 ,  1 
IF  Process$="STRUCTURE"  THEN  SCALE  -N1 agmax, N1 agmax, 0, 5 
! 

pa-2 

FOR  Lag=-Nl agmax  TO  N1 agmax 
PLOT  Lag,R12<Lag),P 
P*-l 

NEXT  Lag 

IF  P1otter$»"9872fl''  THEN  PENUP 
NEXT  Pi  a 


1 
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3780  IF  Process$<>"COHERflNCE"  THEN  3880 

3790  Nppp=Npp*Npi e 

3800  REDIM  Yl«:Nppp>,Y2<Nppp) 

3810  DISP  "INTERPOLATING" 

3820  Lupl =Lup<Fi 1  el , Pai r ) 

3830  Lup2=Lup<Fi 1 e2, Pai r > 

3840  CALL  Int  erp<Dl  <*)  ,  Nscaril ,  1 ,  Lupl ,  Z1 ,  Dz ,  Nppp ,  Eadl ,  Y1  <»  >  > 

3850  CALL  Int  erp^DZC  *>  ,  NscanZ,  1 ,  Lup2,  Z1 ,  Dz,  Nppp,  Bad2,  YZi;  *>  > 

3880  ! 

3870  CALL  Coher < Y1 , Y2<*> , Nppp, Nf f t , Nband, I d i f , Dz , Nvu 1  * < Lup 1 > , Nvu 

pZ)) 

3880  ! 

3890  NEXT  Pair 

3900  ! 

3910  IF  Plott.er$<>"GRAPHICS"  THEN  4050 

3920  !  GRAPHICS 

3930  PRINT  PAGE 

3940  PRINT  "PROGRAM=";Progre'...-f ,  "RUN  DRTE&T  I  ME  "  ;  Runt  i  met- 

3950  PRINT  "PROCESS$="; Process* 

3960  IF  Pririter<'0  THEN  4000 

3970  DUMP  GRAPHICS 

3980  PRINT  PAGE 

3990  ! 

4000  EXIT  GRAPHICS 

4010  GCLEAR 

4020  ! 

4030  IF  PI otter$<>"9872A"  THEM  4060 

4040  !  9872A 

4050  PEN  0 

4060  ! 

4070  NEXT  File2 

4080  NEXT  Filel 
4090  NEXT  Set 
4100  ! 


4110  DISP  "FINISHED" 

4120  STOP 
4130  ! 

4140  !  **-»‘#*»******»****«*****»***********»-if***»***«*************««* 

4150  SUB  Junk 
4160  SUEEND 

4170  !  ■»*•*■*«■■»*•*■•»■»♦•»«■»■»■»•»•*■*■»»»•»■**•*•»* 

4180  SUB  Crosscor<X<»>,Y<*),N,Ll, L2, Rxy (*> , Sxx, Syy , Eadx , Bady , Okx, Ok y > 
4190  Sxx=Syy=Nok x=Hok y=0 
4200  FOR  I»1  TO  N 
4210  X=X<I) 

4220  IF  X=Badx  THEN  4250 

4230  Nokx*Nokx+l 

4240  Sxx  =  Sxx+X  '2 

4250  Y=Y<I) 

4260  IF  YsBady  THEN  4290 

4270  Noky«Noky+l 

4280  Syy*Syy+Y^2 

4290  NEXT  I 

4300  Okx=NokxxN 

4310  Oky®NokyxN 

4320  ! 

4330  MAT  Rxy-ZER 
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1: 


(  4340  IF  <Sxx=0)  OR  <Syy=0>  THEN  SUEEXIT 

4350  ! 

4360  FOR  L=L1  TO  L2 
i  4370  Sxy=0 

4380  FOR  TO  M1N<N,N-L> 

4390  J=I+L 

4400  x  =  x<:i> 

4410  IF  X=Badx  THEN  4460 

4420  Y=Y<J) 

4430  IF  Y=Eady  THEN  4460 

4440  Sxy=Sxy+X*Y 

4450  Nokxy=Nokxy+l 

4460  NEXT  I 

4470  Rxy  <  L  >  =Sxy/SG!R  C  Sxx*Syy  > 

4480  NEXT  L 
4490  SUEEND 

4500  !  •********■*■■*■**»***■»***»*»***■*■*«•*■*■***«•*»*»#*********»*«**«***********■*■** 

4510  SUE  Junk 
4520  SUEEND 

4530  !  *****************»**»***«*i<-***«***»**#*#********«**«************  ■*#**»♦■* 

4540  SUE  St  rue  t  ure  <X  <  *>,Y<*>,N,L1, L2, Rmsl agC *> , Badx , Eady , Okx , Oky > 

4550  Nokx=Noky=0 
4560  FOR  1=1  TO  N 

4570  IF  X<I)<>Eadx  THEN  Nokx=Nokx+l 

4580  IF  YCnOEady  THEN  Noky=Noky+l 

4590  NEXT  I 

4600  Okx=NokxxN 

4610  Oky=NokvJ/N 

4620  ! 

4630  FOR  Lag=Ll  TO  L2 
4640  Nd=Sd=Sdd=0 

4650  FOR  I=MflX<  1 ,  1-Lag>  TO  MIIUN,  N-Lag> 

4660  X  =  X(:i> 

4670  Y=Y<I+Lag> 

4680  IF  <:X  =  Badx>  OR  <Y=Badv>  THEN  473© 

4690  Nd=Hd+l 

4700  Dif=X-Y 

4710  Sd=Sd+Dif 

4720  Sdd=Sdd+Dif'^2 

4730  NEXT  I 

4740  flu=RrfiS=0 

4750  IF  Nd=0  THEN  4780 

4760  fiu=Sd/Nd 

4770  Rms=SQR<SddxNd-flv^2) 

4780  Rwsl  ag(Lag)=Riins 

4790  NEXT  Lag 
4800  SUEEND 
4810  END 

4820  !  ******************************************^*************ir***** 

4830  SUB  Interpf.SHORT  Din<*),REflL  N  i  n,  Zvar ,  Duar ,  Z 1 ,  Dz ,  Nout ,  Bad ,  Dout  ( *  >  > 

4840  !  JUL  8,80  JHD.  MODIFIED  TO  WORK  WITH  2  DIM  RRRHY  INPUT,  1  DIM  OUT 

4850  OPTION  BASE  1 
4860  Dp=flBS<Dz> 

,  4870  Pl=fiBS<21) 

i  4880  MAT  Dout=<Bad) 

'  4890  J*2 

4900  FOR  Iout*l  TO  Nout 
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Pout=Pl+(Iout-l)*Dp 
FOR  J=J  TO  Nin  !  FIND  PIN<J>  JUST  GREATER  THAN  POUT 

Pj=ABS(Di n< J, Zwar ) ) 

Dj=Di n( J, Dyar ) 

IF  <Pj>=Pout>  AND  <Dj<>Bad)  THEN  4980 
NEXT  J 
SUBEXIT 

IF  PjOPout.  THEN  5010  !  SPECIAL  SPEED-UP  IF  PJ=POUT 
Dout ( lout  >=Dj 
GOTO  5070 

I=J-1  !  INTERPOLATE  LINEARLY  IF  PiCPOUT 

Pi =ABSCDi n< I , Zuar>  > 

Di =Di n< I , Duar > 

IF  Pi >Pout  THEN  5070 
IF  Di=Bad  THEN  5070 

Dout ( lout  >  =  <Dj-Di >/<Pj-Pi >*<Pout-Pi )+Di 
NEXT  lout 
SUEEND 


SUB  Coher  <  X <  *  > , Y < *  > , N i n , Nf  f t , Nband, I d i f , De 1 z , Labx# , Laby*  > 
OPTION  BASE  1 
SHORT  Xx<Nfft > , Yv<Nfft ) 

Deg=180xPI 
Rad= 1 xDeg 
Del z=ABS<De1 z) 

Npiie  =  Niri  DIV  Nfft 

Nh*Nfftx2 

Dof  =  Nbarid*Npi  e 

IF  Dof>l  THEN  5240 

DISP  "DEGREES  OF  FREEDOM  TOO  SMALL" 

GOTO  5260 

T95=l .  96  +  2.  SS'-Dof +  2.64/Dof''2+2.56.-Dof -’•■3 
C95  =  SQRa-<  1-.  95)''<  l/<Dof-l  )  >> 


PRINT  "COHERANCE  BETWEEN  "ILabxf;"  AND  ";Laby«- 
PRINT  "NIN=";r'in,  " NFFT=  "  ;  Nf  f t ,  " NBAND=  "  ;  Nband 
PRINT  "NPIE=";Npi€-,  "C95=";C95,  "DOF";Dof 
PRINT  "  1  EST  2  WNO  WLEN  AXX  AYY 

DPH" 

IMAGE  2<3D> ,5D.D,4D.2D,4<X,MD.2DE>,2D. ZDjZ^SD^ 
IF  ldif=0  THEN  S7 
FOR  1=1  TO  Nin-1 

X(  I  >=X(  I  +  l  >-x<:  n 
YC  I  )  =  Y<:  I  +  l  )-Y<  I  ) 

NEXT  I 

X<Nir.)=X<:Niri-n 

Y<:Niri>=Y<Nin-n 

>7:  !  FFT 

FOR  L=1  TO  Npie 
L0=(:L-1  >*Nff  t 
FOR  1=1  TO  Nfft 
Xx< I )=X<L0+I ) 

Yy<  I  >»Y<L0+n 
NEXT  I 
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5470 

5480 

, 

CFILL  Fork<Xx<*),Yy<*),Nfft,  1) 

5490 

Sc=SQR<2)/-Nfft 

5500 

FOR  1=1  TO  Nfft 

5510 

X<L0+I  >=Xx<  n*sc 

5520 

Y<L0+I  >=Yy<  n*Sc 

5530 

NEXT  I 

5540 

NEXT  L 

5550 

5560 

1 

FOR 

V=0  TO  4 

5570 

Kk 

=  0 

5580 

FOR  K=1  TO  Nh-1  STEP  Nband 

5590 

flxx  =  fl^'y=Cx^  =  Qxy=Na'v'=0 

5600 

FOR  L=1  TO  Npie 

5610 

Ll=<L-n*Nfft  +  l 

5620 

Ii=Ll+K 

5630 

Jj=Ll+Nfft-K 

5640 

FOR  M  =  0  TO  MIN<Nbarid,Nh-K:)-l 

5650 

I=Ii+M 

5660 

J=Jj-M 

5670 

Xc=X'::  I  >+x<:  J> 

5680 

X£  =  Ya 

5690 

Yc=Y(:i)+Y<J) 

5700 

Y£=X<J>-X< I ) 

5710 

Cxy  =  Cxy+. 5* < Xc »Yc +Xs*Y£  ) 

5720 

Qxy=Qxy+.5«<Yc«X£-Xc*Y£) 

5730 

flxx  =  flxx+.  5«<Xc  ''2  +  X£''2> 

5740 

flyy  =  8yy+.  5*<  Yc  ''2  +  Ys''2) 

5750 

NaM=Nav*-l 

5760 

NEXT  M 

5770 

NEXT  L 

5780 

5790 

* 

IF  IdifOl  THEN  S22 

5800 

Recolor  =4*SIN<PI*<K+.  5*<Nbarid-l  >  ' 

5810 

Cxy=Cxy/Reco1or 

5820 

Qxy=QxyxRecolor 

5830 

flxx=FlxxxRecol  or 

5840 

5850 

1 

flyy=flyyxRecol or 

5860 

S22; 

Kk=Kk+l 

5870 

flxx=RxxxNao 

5880 

flyy=flyy/NaM 

5890 

Cxy=CxyxNay 

5900 

0xy=G!xy/Nay 

5910 

Rxy=SQR(  ^Cxy''■2  +  Glxy^2>x<flxx*flyy)  ) 

5920 

5930 

! 

Pxy=FNfltari<Qxy,Cxy)'*’Deg 

5940 

Est  l  =  <Kk-l  )*Nba'  i+1 

5950 

Est  2  =  Kk  *Nband 

5960 

Est=<E£t 1+E£t2)x2 

5970 

Dph=T95*SQR<:  <  lxRxy''2-l  )xDof  ) 

5980 

IF  Dph>»l  THEN  Dph»90 

5990 

IF  Dph<l  THEN  Dph=flSN<:Dph)»D€g 

6000 

WnoaEst/Nfft/Del z*lE3 

6010 

6020 

! 

W1  en=lE3xWr»o 

6030 

IF  V>0  THEN  6190 
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€040 

£050 

£060 

£070 

£080 

£090 

£100 

£110 

£120 

£130 

£140 

£150 

£1£0 

£170 

£180 

€190 

£200 

£210 

£220 

£230 

£240 

£250 

€2£0 

£270 

£280 

£290 

£300 

€310 

£320 

£330 

£340 

€350 

£3£0 

£370 

£380 

£390 

£400 

£410 

£420 

£430 

£440 

£450 

£4£0 

£470 

£480 

£490 

£500 

£510 

€520 

£530 

£540 

€550 

£5£0 

6570 

£580 

6590 

6600 


PRINT  USING  5310;Estl,E£t2,Wno,Wl€ri,flxx,fli;i^,Cxy,Qxy,Rxy,Pxy,Dph 

I 

IF  Kk>l  THEN  6110 
flxxmax=flxxmi n=flxx 
flyymax=flyymi n=flyy 
Wnoin  3x=Wnomi  n=Wno 

! 

fixxmax=MflX<flxxmax,flxx) 
flyymax  =  MflX<flyytnax,flyy) 

Rxxmi  ri=MIN<flxxmi  rij  flxx) 
flyymi  ri=MIN<flyymi  n,  fiyy  ) 

Wriomax  =  MflX<Wnomax,  Wno) 

Unoniiri=MIN<Wriomin,Wno) 

! 

GOTO  £860 

! 

ON  V  GOTO  flut oxx , Rut oyy, Coher , Phase 
flutoxx:  ! 

fl  =  fi  X  X 

IF  Kk>l  THEN  £300 
PLOTTER  IS  "GRAPHICS" 

GRAPHICS 

LOCATE  0,50,50, 100 
Lgtami n=LGT (Axxmi n) 

Lgtamax=LGT  <Axxftiax) 

GOTO  6380 


Aut oyy;  ! 

A=Ayy 

IF  Kk>l  THEN  £380 
LOCATE  0,50,0,50 
Lgtarniri=LGT<Ayym1n> 

Lgtarriax  =  LGT<Ayymax) 

IF  Kk>l  THEN  £550 
LgtwBii  n=LGT  <Wnomi  n) 

Lgtwmax=LGT  CWnomax) 

Ilgtwtifiin=INT<Lgtwjnin) 

1 1gtwmax=INT  <Lgtwmax+. 999> 

! 

1 1 gt ami n=INT  <Lgtami n) 

I  Igt  amax=INT  <Lgtamax+. 999) 

! 

SCALE  1 1 gt urn  1 n, 1 1 gt umax, 1 1 gtami n, 1 1 gt am ax 

LINE  TYPE  3, 1 

GRID  1,1 

LINE  TYPE  1 

FRAME 

MOVE  LGT<;Wrio),LGT<A) 

GOTO  6860 

! 

DRAU  LGT(l>lno),LCT<A) 

GOTO  6860 

Coher;  ! 
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6610  IF  Kk>l  THEN  6690 

6620  LOCRTE  50,100,0,50 

6630  SCRLE  1 1 gtwmi n, 1 1 gtumax, 0, 1 

6640  LINE  TYPE  3, 1 

6650  GRID  1,.2 

6660  LINE  TYPE  1 

6670  FRAME 

6680  MOVE  LGT<Wno)  ,  Rxj^ 

6690  ! 

6700  DRAW  LGT(Wno),Rxy 

6710  GOTO  6860 

6720  ! 

6730  Phase:  ! 

6740  ! 

6750  IF  Kk>l  THEN  6830 

6760  LOCATE  50,100,50,100 

6770  SCALE  1 1 gtumi n, 1 1 gtwmax, -180, 180 

6780  LINE  TYPE  3, 1 

6790  GRID  1,90 

6800  LINE  TYPE  1 

6810  FRAME 

6820  MOVE  LGT(:Wno),Pxy 

6830  ! 

6840  DRAW  LGT<Wno),Pxy 

6850  ! 

6860  NEXT  K 
6870  NEXT  V 
6880  ! 

6890  DUMP  GRAPHICS 
6900  PRINT  PAGE 
6910  EXIT  GRAPHICS 
6920  SUEEND 
6930  ! 

6940  !  *************************************>1^**1^***************************** 
6950  ! 

6960  SUB  Fork<SHORT  X ( * ) , Y ( * > , REAL  Lx,Signi>  !  MODIFIED  FROM  DENHAM'S  PATSY  FFT 
6970  J=1 

6980  FOR  1=1  TO  Lx  !  SORT  IN  TIME  DOMAIN 

6990  IF  I>J  THEN  S10 

7000  RteKip=X<J) 

7010  Itemp=Y<J> 

7020  X<J)=X<I) 

7030  Y<J)=Y<I) 

7040  X<I)=Rtemp 

7050  Y<I)=Itemp 

7060  S10:  M»Lxx2 

7070  S20:  IF  J<=M  THEN  S30 

7080  J=J-M 

7090  M=M/2 

7100  IF  M>«1  THEN  S20 

7110  S30:  J=J+M 

7120  NEXT  I 

7130  L«1 

7140  S40:  Istep=2*L  !  FOLD  IN  FREQ  DOMAIN 

7150  FOR  M»1  TO  L 

7160  Iarg=PI*Si  gni  »<M-1  )/'L 

7170  Rw=COS(Iarg> 


y 
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7180  Iw=SlN<Iarg) 

7190  FOR  I«M  TO  Lx  STEP  Istefs 

7200  Ip1xi+L 

7210  RtempxRw^Xdpl  Ipl  ) 

7220  Itemp=Rw*Y< Ipl )+Iw*X< Ipl ) 

7230  Xdpl  )=X<I)-Rt.emp 

7240  Ydpn=Yd)-Itcmp 

7250  Xd  )=Xd  )+Rtemp 

7260  Y<I)=Yd)  +  ltemp 

7270  NEXT  I 

7280  NEXT  M 
7290  Lxlstep 
7300  IF  L<Lx  THEN  S40 
7310  SUBEND 

7320  !  »»*«*#****■»***********♦*******«#**«*****«**»*«*****#«**##********# 
7330  DEF  FNFItan<Y,X> 

7340  IF  X=0  THEN  Vert 
7350  fing=fiTN<Y/X) 

7360  IF  X>0  THEN  RETURN  flng 

7370  IF  Y<0  THEN  03 

7380  fingxflng+PI 

7390  RETURN  flng 

7400  03:  flng=flng-PI 

7410  RETURN  flng 

7420  Vert:  IF  Y<0  THEN  Down 

7430  flng=PIx2 

7440  RETURN  flng 

7450  Down:  flngx-PI/2 

7460  FNEND 

7470  !  ***•»*****#**•»**«***•»»•*••*■*♦»•»*•*•«*»•*•*•****«****•*•*«**•*■*■»«**■»*■»*■*«•*** 
7480  END 
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I.  Hater ials 

A.  Knife 

B.  Velux  10  lb  nylon  monofilament  fishing  leader 

C.  Rubber  bands,  about  3"  x  1/4” 

D.  Orange  wax  safety  fuse 

E.  Flotation  collars  (Fig.  B1) 

F.  Pull-wire  Igniters  euid  Instructions 


Figure  Bl.  XTVP  expendable  floaty  aide  view  arose  section. 


II.  Assembly 

A.  Loop  two  rubber  bands  together  (Fig.  B2). 
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SURGEON'S  KNOT 


Figure  B2. 

Leader  material  threaded  through  looped 
rubber  bands  and  tied  in  surgeon's  knot. 


C.  Slip  rubberband/llne  assembly  over  the  £oam  float  as  shovRi  in 
Fig.  B3. 

D.  Prepare  fuse  by  measuring  cunount  needed  for  desired  delay  time 
(orange  wax  safety  fuse  burns  at  120  sec/yard)  plus  5",  and  cut 
ends  square.  Scrape  ignitor  end  to  expose  powder  for  reliable 
ignition. 

E.  At  the  measured  point,  make  a  single  straight  cut  in  the  safety 
fuse  to  1/2  diameter  so  that  knife  cut  extends  into  channel 
filled  with  fuse  burning  material,  as  shown  JLn  Fig.  B3. 

F.  Use  a  pencil  to  punch  hole  into  Ethafoam  float  in  longitudnal 
line  %flth  fishline  as  shown  in  Fig.  B3. 


FUSE 


Figure  B3.  Foam  float  with  rubber  band  assembly;  fuse  out  to 

half  the  diameter  and  attached  with  out  under  nylon 
leader. 


B2  APL-UW  8110 


I 


UNIVERSITY  OF  WASHINGTON  •  APPLIED  PHYSICS  LABORATORY 


Insert  fuse  Into  float 

1>  with  end  of  fuse  in  hole  of  float 

2.  with  flshllne  Inserted  into  cut  in  fuse  so  that  when  fuse 
burns  down  It  will  melt  the  nylon  emd  release  the  float 
halves . 

Install  assembly  in  launcher  emd  secure  in  place. 

When  ready  to  deploy,  pull  wire  fuse  igniter  according  to 
instructions  on  igniter  box,  being  careful  that  Igniter  is  pushed 
well  do%m  onto  the  fuse  and  that  it  is  not  pulled  off  when  the 
wire  is  pulled. 

The  operator  should  test  the  method  several  times  to  ensure  good 
technique.  (Use  XBT's  to  economize.) 


